<%=Session("SITE

<% if Session("START_GIFTON.HU") <> 1 then %> <% Session("Szuro_Width")=1024 Session("Szuro_Height")=768 Session("Szuro_Kep")=200 Session("START_GOLDING.HU")=0 Session("START_GIFTON.HU")=1 end if %> <% Dim sLang Dim sLangCikk Dim sLangDB Dim kosar_width Dim emblfield_width kosar_width=750 emblfield_width=kosar_width/5-4 if Session("engedmeny")<0 then sEngfelirat=Session("engedmeny") & "%" sEngSzorzo=1+Session("engedmeny")/100 else sEngfelirat="" sEngSzorzo=1 end if Dim strURL strURL = Request.ServerVariables("URL") if Session("KOSAR_MAX")= "" then Session("KOSAR_MAX")="0" Session("KOSAR_MAX2")="0" end if %> <%=Session("SITE_TITLE")%> /<%=easy5css%>" type="TEXT/CSS" rel="STYLESHEET"> <% ' --------------- Szerver oldali asp rutinok --------------- %><% ' EZ A TÉNYLEGES SZERVEROLDALI FUTÁS KEZDETE! ***** Dim sAction ' as string Dim sItemID dim sret sAction = CStr(Request.QueryString("action")) sItemID = CStr(Request.QueryString("item")) tipus = CStr(Request.QueryString("tipus")) ertek = CStr(Request.QueryString("ertek")) embl = CStr(Request.QueryString("e")) embl1ertek = CStr(Request.QueryString("emblt")) embl2ertek = CStr(Request.QueryString("embls")) embl3ertek = CStr(Request.QueryString("embld")) embl4ertek = CStr(Request.QueryString("embli")) ar = CStr(Request.QueryString("ar")) Select Case sAction Case "send" PlaceOrder ' megrendelés rögzítése Case "view" ShowItems Case "add" AddItem sItemID ChangeItem GetKosarIx(sItemID), "ar", ar if session("HEAD")<>"CS" then 'AddItem sItemID ' Ez cikkazon! %>

<%=A_cikk_bekerult_a_kosarba%>

<% else if (embl<>"1" and embl<>"2") then ChangeItem GetKosarIx(sItemID), "count", ertek ChangeItem GetKosarIx(sItemID), "embl1", "" '-- ez az embl tech. ChangeItem GetKosarIx(sItemID), "embl2", "" '-- ez a szin ChangeItem GetKosarIx(sItemID), "embl3", "" '-- ez a db/termék ChangeItem GetKosarIx(sItemID), "embl4", "" '-- ez a logo ID ChangeItem GetKosarIx(sItemID), "embl5", "N" '-- ez a status E, N, A ShowItems end if if embl="2" then ChangeItem GetKosarIx(sItemID), "count", ertek ChangeItem GetKosarIx(sItemID), "embl1", "" '-- ez az embl tech. ChangeItem GetKosarIx(sItemID), "embl2", "" '-- ez a szin ChangeItem GetKosarIx(sItemID), "embl3", "" '-- ez a db/termék ChangeItem GetKosarIx(sItemID), "embl4", "" '-- ez a logo ID ChangeItem GetKosarIx(sItemID), "embl5", "E2" '-- ez a status E, N, A ShowItems end if if embl="1" then ChangeItem GetKosarIx(sItemID), "count", ertek ChangeItem GetKosarIx(sItemID), "embl1", embl1ertek '-- ez az embl tech. ChangeItem GetKosarIx(sItemID), "embl2", embl2ertek '-- ez a szin ChangeItem GetKosarIx(sItemID), "embl3", embl3ertek '-- ez a db/termék ChangeItem GetKosarIx(sItemID), "embl4", embl4ertek '-- ez a logo ID ChangeItem GetKosarIx(sItemID), "embl5", "E" '-- ez a status E, N, A ' response.write "qwertzu" ShowItems end if end if Case "del" RemoveItem sItemID ' ez is Ix ShowItems Case "addajandekpont" AddItem sItemID ChangeItem GetKosarIx(sItemID), "count", ertek ChangeItem GetKosarIx(sItemID), "embl5", "A" '-- ez a status E, N, A ChangeItem GetKosarIx(sItemID), "ar", ar ShowItems Case "addfrombasket" AddItem GetCikkazon(sItemID) ' ez is Ix ChangeItem GetKosarIx(sItemID), "ar", ar ShowItems Case "change_megj" 'Response.Write "action=change_megj!" ShowItems Case "kupon" ShowItems2 %><% Case "kupon_bev" kupon_bev Case "change_ui" change_ui ertek %> <% Case "change" ' Response.Write "tipus,ertek:" & tipus & ertek ChangeItem sItemID, tipus, ertek ' sItemID: nem cikkazon, hanem Ix sorszám! ' ShowItems %> <% ShowItems Case Else Response.Write "Hiba:shop.asp: ismeretlen action!" Response.End End Select 'Response.End 'így lenne logikus, de lehet, hogy nem szabad idetenni ' itt vége van a szerver főrutinnak? Sub AddItem(cikkazon) Dim Ix if cikkazon<>"0" then Ix=GetKosarIx(cikkazon) 'Response.Write Ix 'Response.End 'ha már van ilyen cikk a kosárban, nincs teendő! If Ix="0" Then if Session("KOSAR_MAX")="" then Session("KOSAR_MAX")="1" Session("KOSAR_MAX2")="1" else Session("KOSAR_MAX")=cstr(cint(Session("KOSAR_MAX"))+1) Session("KOSAR_MAX2")=cstr(cint(Session("KOSAR_MAX2"))+1) end if Session("KOSAR_"+Session("KOSAR_MAX"))= cikkazon+"|1||||||N" ' 1 db-bal kerül be End If else response.write "" end if End Sub Sub RemoveItem(Ix) ' Ix=GetKosarIx(cikkazon) If Ix<>"0" Then Session("KOSAR_"+Ix)="" Session("KOSAR_MAX2")=cstr(cint(Session("KOSAR_MAX2"))-1) End If End Sub sub ChangeItem(Ix, tipus, ertek) ' nem cikkazon-t kap, hanem Ix-et! nem kell keresni! Dim megj,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 Dim lista, sSQL 'Response.Write "Change!"+cikkazon+" "+tipus+" "+ertek 'Response.End vankosarir="1" ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' nem kell Ix-et keresni, paraméterben megkaptuk! ' Ix = GetKosarIx(cikkazon) KosarOlvas Ix,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 select case tipus case "count" if ertek="" then ertek="0" end if 'üreset nullára cseréljük ' response.write "-----------------nem fölé" 'ha a készlet erejéig rendelhető, max a készletig fogadjuk el! sSQL="SELECT Y_RENDELHETO_RA, KESZLET_MENNY_S,KESZLET_MENNY_U,Y_REND_EGYS_RA FROM GOLD_CIKK WHERE CIKK_AZONOSITO=" & cikkazon shsql(sSQL) lista=cnnSearch.execute(sSQL) if session("HEAD")="CS" then if ertek mod cint(lista("Y_REND_EGYS_RA"))<>0 then response.write "" else kosar_db= ertek end if else if (lista(0)<>"1") then 'csak a készlet erejéig rendelhető if (cdbl(lista(1)) < cdbl(ertek)) then kosar_db=lista(1) 'ennyire változzon, ne többre! %> <% else kosar_db= ertek end if else '---nem csak a készlet erejéig rendelhető if cdbl(lista(3))> 1 then '----- Rend.egys >1 if (cdbl(ertek) mod cdbl(lista(3))) <> 0 then '-----nem a rendelési egységben kéri a termékeket if cdbl(lista(1))+cdbl(lista(2)) <% else kosar_db= ertek end if else kosar_db= ertek end if else kosar_db= ertek end if else kosar_db= ertek end if end if end if case "embl1" embl1=ertek case "embl2" embl2=ertek case "embl3" embl3=ertek case "embl4" embl4=ertek case "embl5" embl5=ertek case "ar" ar=ertek ' case "megj" nincs, mert azt más action csinálja, ertek-ben nem tudja átvenni a soremelést, csak submit GET-ben end select if vankosarir="1" then KosarIr Ix,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 end if End Sub sub Change_ui(ertek) Session("VESZEMELY")=ertek end sub Sub ShowItems() Dim aParameters ' as Variant (Array) Dim sTotal, sShipping Dim sdb Dim sUres Dim sMegjegyzes Dim aParameters1 Dim Ix,cikkazon,megj,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 Session("AKTABLAK")="K" 'ha nyelvváltás lenne, tudja, mit frissítsen %> <% ' Főmenü, Termékek, Kosár menü kiírása Dim menu_top_act menu_top_act="K" %>

<% 'kosár tételek if Session("KOSAR_MAX") >= "1" then sTotal = 0 %> <% dim sum_husegpont sum_husegpont=0 for i=1 to cInt( Session("KOSAR_MAX") ) Ix = cStr(i) if Session("KOSAR_"+ Ix) <> "" then ' törölt a kosárelem ? ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' sItemId helyett cikkazont olvas ki KosarOlvas Ix ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam ' típuseltéréssel lehal. if talalatszam = 0 Then Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!" Response.End end if if session("HEAD")<>"CS" then ' CIKK KÉSZLETEK, ADATOK, ATTRIBÚTUMOK s_s="" s_u="" s_r="" s_b="" s="" if cDBL(rstSearch.Fields("KESZLET_MENNY_S").Value)>0 then s_s=raktaron & ": " & formatnumber(rstSearch.Fields("KESZLET_MENNY_S").Value,0,,,-1) & " " & db ' response.write s_s s="
"+s_s end if 'úton levő tételek if cDBL(rstSearch.Fields("KESZLET_MENNY_U").Value)>0 then strSQL= "SELECT DATUM, KESZLET_MENNY_U FROM GOLD_UTIKLT " _ & "WHERE CIKK_AZONOSITO=" & cikkazon _ & "ORDER BY DATUM" shsql(strSQL) Set Lista=cnnSearch.Execute(strSQL) Do While Not lista.Eof s_u=s_u & uton & ": " & formatnumber(Lista(1),0,,,-1) & " " & db & " " & Lista(0) Lista.Movenext Loop s=s+"
"+s_u end if ' van úton '2005-ben még megmutatjuk a külf készleteket. strSQL= "SELECT DATUM, MENNYISEG FROM GOLD_KULFKLT " _ & "WHERE CIKK_AZONOSITO=" & cikkazon _ & " ORDER BY DATUM" shsql(strSQL) Set Lista=cnnSearch.Execute(strSQL) if Not lista.Eof then Do While Not lista.Eof s=s+Kulfoldi_Keszleten+": "+formatnumber(Lista(1),0,,,-1) & " " & db & " " & Lista(0) Lista.Movenext Loop end if ' van KÜLF KÉSZLETEN if cstr(rstSearch.Fields("Y_RENDELHETO_RA").Value)="1" then s_r=rendelheto end if if (rstSearch.Fields("Y_BEERK_IDO").Value)<>"" then ' and (rstSearch.Fields("Y_RENDELHETO_RA").Value=1) and s_b= cstr(rstSearch.Fields("Y_BEERK_IDO").Value) & " " & het end if if (s_r<>"") and (s_b<>"") then if s_s<>"" then s=s+"
"+tovabbi_rendeles+": "+s_b else s=s+"
"+rendelheto+": " +s_b end if end if if (s_s="") and (s_u="") and (s_r="") then s=s+nem_rendelheto end if if cDBL(rstSearch.Fields("KESZLET_MENNY_M").Value) >0 then ' csak a bemutatóterminél mutassa! s=s+ "
" & MintaVan end if if rstSearch.Fields("Y_REND_EGYS_RA").Value<>"" then s=s+ "
" & Rendelesi_egyseg & ": " & rstSearch.Fields("Y_REND_EGYS_RA").Value & " " & db end if s=s+"
" ' a cikk attribútumai, ami kifér! if cstr(rstSearch.Fields("Y_RENDELHETO_RA").Value)="0" then if (cDbl(rstSearch.Fields("KESZLET_MENNY_S").Value)>0) or (cDbl(rstSearch.Fields("KESZLET_MENNY_U").Value)>0) then ' piros s= s & ""+ csak_a_keszlet_erejeig + "" s= s & csak_a_keszlet_erejeig & "
" end if end if if cstr(rstSearch.Fields("Y_TOPE_RA").Value)="1" then 'if s<>"" then s= s & " " end if s= s & "Gift Cocktail" & "
" end if if cstr(rstSearch.Fields("Y_TOPS_RA").Value)="1" then 'if s<>"" then s= s & " " end if s= s & "Last Minute" & "
" end if if cstr(rstSearch.Fields("Y_AKCIO_RA").Value)="1" then 'if s<>"" then s= s & " " end if s=s+ akcios & "
" end if end if '------nem csomagküldős rész készletadatai if embl5<>"A" then '----------az ajándékpont beváltásos termékeket nem itt jelenítjük meg, hanem a kosár alján külön! ---------- %> <% if session("HEAD")="CS" then %> <% end if sTotal = sTotal + cDbl(kosar_db) * cDbl(ar) ' response.write sTotal 'rstSearch.Close 'ez a cikk már nem kell tovább end if '-------nem ajándékpont beváltásos termék -------------------- if embl5="A" then vanajandekpontostermek="1" end if 'embl mezők, ha kell if Session("EMBLEMAZASI_KAT")>"0" then %> <% end if 'emblémázómezők end if ' nem törölt a kosárelem Next 'kosár elem response.write " " if session("HEAD")="CS" then %> <% end if if session("HEAD")="CS" then '-------------- most jönnek az ajándékpontos termékek! ------------------- if vanajandekpontostermek="1" then response.write " " end if if Session("KOSAR_MAX") >= "1" then for i=1 to cInt( Session("KOSAR_MAX") ) Ix = cStr(i) if Session("KOSAR_"+ Ix) <> "" then ' törölt a kosárelem ? ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' sItemId helyett cikkazont olvas ki KosarOlvas Ix ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam ' típuseltéréssel lehal. if talalatszam = 0 Then Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!" Response.End end if if embl5="A" then %> <% sTotalA = sTotalA + cDbl(kosar_db) * cDbl(ar) end if '------ ajándékpontos termék end if ' nem törölt a kosárelem Next 'kosár elem end if end if if session("HEAD")<>"CS" then ' alsó szakasz %>

Fizetendő termékek

<%=mennyiseg%>

<%=egysegar%><%=sEngfelirat%>

<%=osszesen%>

" width="90" height="90" border="1" alt="<%=kep_nagyitasa%>" >

<%= rstSearch.Fields("CIKKMEGNEVEZES").Value %> (<%= rstSearch.Fields("CIKKSZAM").Value %>) <%=s%>

<%if session("HEAD")<>"CS" then%> ,this.value)" <%if embl5="E" then response.write "disabled" end if%>> <%else%> <%end if%>

" + Session("DEV1_JEL") else response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,2) +"' > " + Session("DEV1_JEL") end if %>

" + Session("DEV1_JEL") else response.write "'"+FormatNumber( cDbl(kosar_db) * Cdbl(ar)*sEngszorzo,2) +"' > " + Session("DEV1_JEL") end if %>

<% response.write "Várható szállítás: " & GetHatido(cDbl(rstSearch.Fields("KESZLET_MENNY_S").Value),Cdbl(kosar_db),embl5) & " munkanap"%>

<% 'shsql("Ez az embl5: "+embl5+"-----------------------------") if embl5="A" then husegpont_szoveg="" else if mid(embl5,1,1)="E" then '----------E1 és E2 lehet tetel_tipus="E" else tetel_tipus="T" end if husegpont_ertek=get_husegpont_ertek(Cdbl(kosar_db)*Cdbl(ar),tetel_tipus) husegpont_szaz =get_husegpont_szaz(Cdbl(kosar_db)*Cdbl(ar),tetel_tipus) husegpont_szoveg=cstr(FormatNumber(husegpont_ertek,0))+" Hűségpont (" & cstr(husegpont_szaz) & "%)" response.write husegpont_szoveg sum_husegpont=sum_husegpont+Cdbl(FormatNumber(husegpont_ertek,0)) end if %>

<%response.write GetEmblSzoveg(embl1,embl2,embl3,embl4,embl5)%>

<% if embl4<>"" then %> <% end if %> " onclick="window.location='cikkadat.asp?item=<%=cikkazon%>&kulon=1&menny=<%=kosar_db%>&h=K&mod=<%=embl5%>'">

<%=vegosszeg%> : " + Session("DEV1_JEL") else response.write "'" + FormatNumber(sTotal*sEngszorzo,2) + "' > " + Session("DEV1_JEL") end if %>

Hűségpontból választott termékek

" width="90" height="90" border="1" alt="<%=kep_nagyitasa%>" >

<%= rstSearch.Fields("CIKKMEGNEVEZES").Value %> (<%= rstSearch.Fields("CIKKSZAM").Value %>) <%=s%>

<%if session("HEAD")<>"CS" then%> ,this.value)" <%if embl5="E" then response.write "disabled" end if%>> <%else%> <%end if%>

pont" else response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,2) +"' > pont" end if %>

pont" else response.write "'"+FormatNumber( cdbl(kosar_db) * cdbl(ar)*sEngszorzo,2) +"' > pont" end if %>

BORDER=0>

<% response.write "Várható szállítás: " & GetHatido(cDbl(rstSearch.Fields("KESZLET_MENNY_S").Value),Cdbl(kosar_db),embl5) & " munkanap"%>

Hűségpont beváltással

<%else%>

> <%=egyebek%>
<%=Session("KOSAR_MEGJ")%>

<%end if%> <%if session("HEAD")<>"CS" then %> <% else %> <%end if%> <% if session("HEAD")<>"CS" then %> <%end if%> <% if Session("BELEP") <> "1" then %> <% else 'be van lepve %> <% end if 'belep %> <% if (mid(Request.ServerVariables("REMOTE_HOST"),1,8)="192.168." and session("HEAD")<>"CS") then %> <% end if %>


*<%=vegosszeg%> : " + Session("DEV1_JEL") else response.write "'" + FormatNumber(sTotalsEngszorzo,2) + "' > " + Session("DEV1_JEL") end if %>**
Hűségpontól beváltott termékek összesen: pont" else response.write "'" + FormatNumber(sTotalA*sEngszorzo,2) + "' > pont" end if %> Összes hűségpont: pont" %>
<% response.write arak_az_afat_nem2%>

<% response.write session("partner_kod") %> <%=kinek_kuldi_az_ajanlatot%>
	<% if cstr(rstSearch.Fields("Y_LATHHATO_KAT_GIFTON").Value)="3" then %> <% end if %>	<% 'bejelenkezes_megrendeleshez%>

<% else ' nincs egyetlen kosárelem sem %>

<%=az_on_kosara_ures%>

<% end if ' van/nincs a kosárban End Sub ' showitems Sub ShowItems2() Dim aParameters ' as Variant (Array) Dim sTotal, sShipping Dim sdb Dim sUres Dim sMegjegyzes Dim aParameters1 Dim Ix,cikkazon,megj,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 Session("AKTABLAK")="K" 'ha nyelvváltás lenne, tudja, mit frissítsen %> <% ' Főmenü, Termékek, Kosár menü kiírása Dim menu_top_act menu_top_act="K" %>

Kuponbeváltás

<% 'kosár tételek if Session("KOSAR_MAX") >= "1" then sTotal = 0 %> <% for i=1 to cInt( Session("KOSAR_MAX") ) Ix = cStr(i) if Session("KOSAR_"+ Ix) <> "" then ' törölt a kosárelem ? ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' sItemId helyett cikkazont olvas ki KosarOlvas Ix ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam ' típuseltéréssel lehal. if talalatszam = 0 Then Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!" Response.End end if %> <% end if next %>

Választott ajándék
" width="90" height="90" border="1" alt="<%=kep_nagyitasa%>" >	<%= rstSearch.Fields("CIKKMEGNEVEZES").Value %> (<%= rstSearch.Fields("CIKKSZAM").Value %>) <%=s%>

<% end if end sub '--------- showitems2 ------------- sub kupon_bev() Dim aParameters ' as Variant (Array) Dim sTotal, sShipping Dim sdb Dim sUres Dim sMegjegyzes Dim aParameters1 Dim Ix,cikkazon,megj,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 Session("AKTABLAK")="K" 'ha nyelvváltás lenne, tudja, mit frissítsen %> <% ' Főmenü, Termékek, Kosár menü kiírása Dim menu_top_act menu_top_act="K" kuponkod=request.form("kuponkod") semail=request.form("email") sql="select * from g_kupon where kuponkod='" & kuponkod & "' and upper(email)='"+ucase(semail)+"'" ' response.write sql set lista= cnnSearch.execute(sql) if not lista.eof then for i=1 to cInt( Session("KOSAR_MAX") ) Ix = cStr(i) if Session("KOSAR_"+ Ix) <> "" then ' törölt a kosárelem ? KosarOlvas Ix ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam end if next sql="update g_posta_gifton set bev_leiras='"+cikkazon+"' , bev_datum=getdate(), bev_status='1' " sql=sql & " where egyedi_kod='"+kuponkod+"' and upper(email)='"+ucase(semail)+"'" ' response.write sql set lista= cnnSearch.execute(sql) %>

Köszönjük!

<% strBody = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " Kuponbeváltás" & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "

" & vbCrLf _ & "Kupon: " & kuponkod & "
" & vbCrLf _ & "Cikk: " & cikkazon & "
" & vbCrLf _ & "E-mail: " & semail & vbCrLf _ & "

" & vbCrLf _ & "" & vbCrLf Set objCDO = Server.CreateObject("CDO.Message") Set objCDO = Server.CreateObject("CDO.Message") With objCDO .To = "vargag@golding.hu" .From = "vargag@golding.hu" .Subject = "Kupunbeváltás" .HtmlBody = strBody .Send End With else %>

Sajnos az e-mail cím, vagy a kuponkód hibás!

<% end if end sub ' megrendeles rogzites Sub PlaceOrder() Dim sTotal, sShipping Dim sNev Dim sIrsz Dim sVaros Dim sCim Dim sSzNev Dim sSzIrsz Dim sSzVaros Dim sSzCim Dim sElkuldve Dim sMegjegyzes ' ------------------Megrendelés rögzítéshez vevő kikeresése Dim strDBPath if Session("KOSAR_MAX") < "1" then Response.Write "Üres kosarat nem lehet rögzíteni!" Exit Sub end if strSQL="select s.vevo_szemely_kod,s.vevo_szemely_vezeteknev, s.vevo_szemely_keresztnev,s.vevo_cime,s.vevo_szemely_email,s.vevo_kod,s.vevo_neve " _ & " from gold_vevo_szemely s where s.vevo_szemely_kod="+cstr(Session("KOD")) shsql(strSQL) 'response.write vParancs Set vevoadatok=cnnSearch.Execute(strSQL) sVevokod2=cstr(vevoadatok(5)) sVevokod=cstr(vevoadatok(0)) sNev = cstr(vevoadatok(1)) & " " &cstr(vevoadatok(2)) sCim = cstr(vevoadatok(3)) sCegnev= cstr(vevoadatok(6)) strToVevo = cstr(vevoadatok(4)) if strToVevo="" then strToVevo = "Golding_Webshop_Hibas_Vevo" end if strSQL="select szemely_email, szemely_kod from gold_viszontelado_szem where partner_kod=" & Session("VISZONTELADOID") & " and szemely_kod=" & Session("VESZEMELY") & " order by szemely_default desc,szemely_nev" shsql(strSQL) Set lista=cnnSearch.Execute(strSQL) sVESzemely=cstr(lista(1)) ' a VE email a default személy emailje, egyelőre, személyeket választani meg nem is lehet strToVE=cstr(lista(0)) if strToVE="" then strToVE = "webshop@golding.hu" end if ' a levél feladója a ve partner e-mailje, pl. webshop@golding.hu, webshop_slovnaft@akarki.hu strSQL="select isnull(viszontelado_email,' '), isnull(viszontelado_nev,' '), isnull(viszontelado_irsz,' '), isnull(viszontelado_varos,' '), isnull(viszontelado_cim,' '), " _ & " isnull(viszontelado_bank,' '), isnull(viszontelado_adoszam,' '), isnull(viszontelado_web,' '), " _ & " isnull(viszontelado_tel,' '), isnull(viszontelado_fax,' ') " _ & " from gold_viszontelado where partner_kod=" & Session("VISZONTELADOID") shsql(strSQL) Set VEadat=cnnSearch.Execute(strSQL) strFrom= cstr(VEadat(0)) if strFrom="" then strFrom = "Golding Webshop " end if strSubject= Session("WEBSHOP_NAME") & " webshop " & megrendeles_ertesito sMegjegyzes = Session("KOSAR_MEGJ") & " " '------------------Megrendelés rögzítése adatbázisba:---------------------------- strSQL="select max(rend_azon) from GOLD_REND_FEJ" shsql(strSQL) Set Lista=cnnSearch.Execute(strSQL) if isnull(Lista(0)) then sAzon="1" else sAzon=cstr(Lista(0) +1) end if ' sDate=year(date()) & "." & month(date()) & "." & day(date()) strSQL="insert into GOLD_rend_fej (" _ & "rend_azon, rend_forras, vevo_kod," _ & "vevo_szemely_kod, rend_kelte, rend_kepzes," _ & "partner_kod, partner_szemely_kod, kert_areng," _ & "megjegyzes, artipus_kod) " _ & " values (" _ & sAzon & ", 'R'," & sVevokod2 & "," _ & sVevokod & ", GetDate() , " & "'" & "F" & "'," _ & cstr(Session("VISZONTELADOID")) & "," & sVESzemely+", 0,'" _ & sMegjegyzes & "'," & cstr(Session("ARTIP1")) & ")" shsql(strSQL) 'response.write sSQL2 Set Lista=cnnSearch.Execute(strSQL) Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("d:\web\easy5\megrendelesek\rendeles_"+sAzon+".txt", True) a.WriteLine("cikk_azonosito"+chr(9)+"mennyiseg"+chr(9)+"cikkszam"+chr(9)+"cikkmegnevezes"+chr(9)+"ar"+chr(9)+"engedmeny") o=1 for i=1 to cInt( Session("KOSAR_MAX") ) if Session("KOSAR_"+ cStr(i)) <> "" then ' törölt a kosárelem ? ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' sItemId helyett cikkazont olvas ki KosarOlvas cStr(i) ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 'ezek se lehessenek túl hosszúak! talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam if talalatszam = 0 Then Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!" Response.End end if ' ar = cDbl(rstSearch.Fields("ARTIPUS_ERTEK").Value) afa = cDbl(rstSearch.Fields("AFA").Value) strSQL="insert into GOLD_REND_TET (rend_azon, tetel_sor, cikk_azonosito, kert_menny, ajanlott_menny, gold_menny, listaar, ajanlott_netto_ar, ajanlott_brutto_ar, eng_szaz, stat_feld_e, stat_feld_k, stat_gold_rend, stat_gold_vissza, stat_lezart, embl_fajta, embl_leiras, embl_szine, embl_meret, embl_hely, egyeb ) " _ & " values (" & sAzon & "," & cStr(o) & "," & cikkazon & "," & kosar_db & "," & kosar_db & "," & kosar_db & "," & replace(cStr(ar),",",".") & "," & Replace(cStr(ar),",",".") & "," & Replace(cStr(ar*(1+afa/100)),",",".") & ",0, 0, 0, 0, 0, 0,'" & embl1 & "','" & embl2 & "','" & embl3 & "','" & embl4 & "','" & embl5 & "','"+Session("KOSAR_MEGJ")+"' )" shsql(strSQL) Response.Write strSQL '-------- csatolandó file összerakása ------------------------------ sql5="select cikkszam,cikkmegnevezes from gold_cikk where cikk_azonosito="+cikkazon shsql(strSQL) lista5=cnnsearch.execute(sql5) a.WriteLine(cikkazon+chr(9)+kosar_db+chr(9)+lista5(0)+chr(9)+lista5(1)+chr(9)+replace(cStr(ar),",","."+chr(9)+cstr(Session("engedmeny")))) '-------------------- Set Lista=cnnSearch.Execute(strSQL) o=o+1 ' tételsorszám end if ' nem törölt Next a.Close '*******************levél******************************** ' van kinek küldeni? If (sNev <> "" and sCim <> "") and IsValidEmail(strToVevo) Then strBody = "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & strSubject & "" & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "

" strbody=strbody & strSubject strbody=strbody & "

" & vbCrLf _ & "

" strbody=strbody & Megrendeles_szama & ": " strbody=strbody & cstr(sAzon) & "

" & vbCrLf _ & "

Köszönjük megrendelését!

Munkatársunk hamarosan felveszi Önnel a kapcsolatot.
" strbody=strbody & Amennyiben_ez_a_megrendeles strbody=strbody & "

" & vbCrLf _ & "

" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf '& "" & vbCrLf _ '& "" & vbCrLf _ '& "" & vbCrLf _ '& "" & vbCrLf _ strbody=strbody _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "

*" strbody=strbody & szallito strbody=strbody & "*" & vbCrLf _ & "
" strbody=strbody & nev strbody=strbody & "	" & cstr(VEadat(1)) & "
" strbody=strbody & Irsz_Varos strbody=strbody & "	" & cstr(VEadat(2)) & "	" & cstr(VEadat(3)) & "
" strbody=strbody & Cim strbody=strbody & "	" & cstr(VEadat(4)) & "
Tel	" & cstr(VEadat(8)) & "
Fax	" & cstr(VEadat(9)) & "
" strbody=strbody & adoszam strbody=strbody & "	" & cstr(VEadat(6)) & "
" 'strbody=strbody & Bankszamlaszam ' 'strbody=strbody & "	" & cstr(VEadat(5)) & "
Web	" & cstr(VEadat(7)) & "

" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & vevo strbody=strbody & " " & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Nev strbody=strbody & "" & vbCrLf _ & "" & sNev & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Cegnev strbody=strbody & "" & vbCrLf _ & "" & sCegnev & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" strbody=strbody & Cim strbody=strbody & "" & vbCrLf _ & "" & sCim & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "E-mail" & vbCrLf _ & "" & strToVevo & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "" & vbCrLf _ & "
" & vbCrLf _ & "

" ' táblázat fejléc strbody=strbody & Termekek strbody=strbody & "

" & vbCrLf _ & "" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf 'tételadatok sTotal = 0 for i=1 to cInt( Session("KOSAR_MAX") ) if Session("KOSAR_"+ cStr(i)) <> "" then ' törölt a kosárelem ? ' olvassuk ki a kosár adatait, változóként módosítsuk, majd írjuk vissza session változóba! ' sItemId helyett cikkazont olvas ki KosarOlvas cStr(i) ,cikkazon,kosar_db,ar,embl1,embl2,embl3,embl4,embl5 talalatszam=1 'integer GetCikkadat cnnSearch, rstSearch, cikkazon, talalatszam ' típuseltéréssel lehal. if talalatszam = 0 Then Response.Write cikkazon + ":olyan cikkazon a kosárban, ami nincs az adatbázisban!" Response.End end if ' ar = cDbl(rstSearch.Fields("ARTIPUS_ERTEK").Value)*sEngSzorzo 'afa = rstSearch.Fields("AFA").Value ' response.write sSQL sTotal = sTotal + cDbl(kosar_db) * ar strBody = strBody & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf if Session("EMBLEMAZASI_KAT")>"0" then if (embl1<>"") or (embl2<>"") or (embl3<>"") or (embl4<>"") or (embl5<>"") then strBody = strBody & "" end if end if o=o+1 ' tételsorszám end if ' nem törölt kosártétel Next strBody = strBody & "

" strbody=strbody & Cikkszam strbody=strbody & "	" strbody=strbody & Cikknev strbody=strbody & "	" strbody=strbody & Mennyiseg strbody=strbody & "	" strbody=strbody & Egysegar & sEngfelirat strbody=strbody & "	" strbody=strbody & osszesen strbody=strbody & "
" & cStr(rstSearch.Fields("CIKKSZAM").Value) & "	" & cStr(rstSearch.Fields("CIKKMEGNEVEZES").Value) & "	" & kosar_db & "	" & cStr(ar) & "	" if Session("DEV1")="HUF" then strbody=strbody & FormatNumber(ar * cDbl(kosar_db),0) else strbody=strbody & FormatNumber(ar * cDbl(kosar_db),2) end if strBody = strBody & "
	" if (embl1<>"") then strBody = strBody & embl_logo & ": " & embl1 & " " end if if (embl2<>"") then strBody = strBody & embl_szin & ": " & embl2 & " " end if if (embl3<>"") then strBody = strBody & embl_meret & ": " & embl3 & " " end if if (embl4<>"") then strBody = strBody & embl_hely & ": " & embl4 & " " end if if (embl5<>"") then strBody = strBody & embl_egyeb & ": " & embl5 & " " end if strBody = strBody & "

" & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & " " & vbCrLf _ & "

" & vbCrLf _ & "

" strbody=strbody & vegosszeg strbody=strbody & "

" if Session("DEV1")="HUF" then strbody=strbody & FormatNumber(sTotal,0) else strbody=strbody & FormatNumber(sTotal,2) end if strbody=strbody & Session("DEV1_JEL") & "

" & vbCrLf _ & "

" _ & egyebek & ":" strbody=strbody & "

" & vbCrLf _ & "

" & Session("KOSAR_MEGJ") & "

" & vbCrLf _ & "" & vbCrLf 'A viszonteladónak megy email: Set objCDO = Server.CreateObject("CDO.Message") 'Először a vevőnek is megy email: Set objCDO = Server.CreateObject("CDO.Message") With objCDO .To = strToVevo .From = strFrom .Subject = strSubject .HtmlBody = strBody .Send End With ' a viszonteladónak is: With objCDO .To = strToVE .From = strFrom .Subject = Session("WEBSHOP_NAME") & " webshop megrendelés" ' strSubject, ez mindig magyar .HtmlBody = strBody .AddAttachment ("d:\web\easy5\megrendelesek\rendeles_"+sAzon+".txt") .Send End With Set objCDO = Nothing 'Kosár törlése: Elég a számlálót nullázni! az elemek majd felülíródnak! Session("KOSAR_MAX")="0" Session("KOSAR_MAX2")="0" Session("KOSAR_MEGJ")="" Response.redirect("shop_koszi.asp?megr="+sAzon) End If '*******************levél vége*************************** End Sub Function IsValidEmail(sEmail) Dim bIsValid bIsValid = True If Len(sEmail) < 5 Then bIsValid = False Else If Instr(1, sEmail, " ") <> 0 Then bIsValid = False Else If InStr(1, sEmail, "@", 1) < 2 Then bIsValid = False Else If InStrRev(sEmail, ".") < InStr(1, sEmail, "@", 1) + 2 Then bIsValid = False End If End If End If End If IsValidEmail = bIsValid End Function %>