Megrendelés
<%
'------------------ fej rögzítés ------------------------------
sql1="select * from gold_vevo_szemely where vevo_szemely_kod="+cstr(session("USER_ID"))
set lista1=cnnsearch.execute(sql1)
sql2="select max(rend_azon)+1 maxazon from gold_rend_fej"
set lista2=cnnsearch.execute(sql2)
if not lista2.Eof then
maxazon=lista2("maxazon")
else
maxazon=1
end if
Session("KOSAR_MEGJ")= Request.form("megj")
sql5="insert into gold_rend_fej (vevo_szemely_kod,rend_kelte,megjegyzes,devizajel,szamla_nev, " _
& "szamla_irszam," _
& "szamla_varos,szamla_cim,szallitas_irszam,szallitas_varos,szallitas_cim,szallitas_nev," _
& "szallitas_cegnev,szallitas_telefon,fizetesi_mod,status,honnan_hallott_rolunk) values " _
& "("+cstr(session("USER_ID"))+"," _
& "getdate()," _
& "'"+cstr(request.form("megj"))+"'," _
& "'"+session("DEV1_JEL")+"'," _
& "'"+lista1("vevo_szamlanev")+"'," _
& "'"+lista1("vevo_szamlairsz")+"'," _
& "'"+lista1("vevo_szamlavaros")+"'," _
& "'"+lista1("vevo_szamlacim")+"'," _
& "'"+lista1("vevo_irsz")+"'," _
& "'"+lista1("vevo_varos")+"'," _
& "'"+lista1("vevo_cime")+"'," _
& "'"+lista1("vevo_szemely_vezeteknev")+" "+lista1("vevo_szemely_keresztnev")+"'," _
& "'"+lista1("vevo_szamlanev")+"'," _
& "'"+lista1("vevo_telefon")+"'," _
& "'"+session("utmod")+"'," _
& "'0','"+cstr(request.form("honnan"))+"')"
svevo_szamlanev=lista1("vevo_szamlanev")
svevo_szamlairsz=lista1("vevo_szamlairsz")
svevo_szamlavaros=lista1("vevo_szamlavaros")
svevo_szamlacim=lista1("vevo_szamlacim")
svevo_irsz=lista1("vevo_irsz")
svevo_varos=lista1("vevo_varos")
svevo_cime=lista1("vevo_cime")
svevo_neve=lista1("vevo_szemely_vezeteknev")+" "+lista1("vevo_szemely_keresztnev")
svevo_szamlanev=lista1("vevo_szamlanev")
svevo_telefon=lista1("vevo_telefon")
'response.write sql5
shsql(sql5)
set lista5=cnnsearch.execute(sql5)
'------------------ tétel rögzítés ------------------------------
if Session("KOSAR_MAX") >= "1" then
sTotal = 0
sEngszorzo=1
szallitasi_ktg=2000
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
select case embl5
case "N" s="Nem emblémázott"
case "E" s="Emblémázott"
case "E2" s="Emblémázott, adatok később"
case "A" s="
Ajándékpontból"
end select
fixktg=0
valtktg=0
kepfile=""
szoveg=""
szinkod1=""
szinkod2=""
szinkod3=""
szinkod4=""
szinkod5=""
embl_megjegyzes=""
if embl5="E" then
emblkalk cikkazon, kosar_db, embl2, embl3, embl1
sql3="select * from g_emblema where id="+cstr(embl4)
set lista3=cnnsearch.execute(sql3)
kepfile=lista3("kepfile")
szoveg=lista3("szoveg")
szinkod1=lista3("szinkod1")
szinkod2=lista3("szinkod2")
szinkod3=lista3("szinkod3")
szinkod4=lista3("szinkod4")
szinkod5=lista3("szinkod5")
embl_megjegyzes=lista3("megjegyzes")
end if
if embl2="" then
embl2="0"
end if
if embl3="" then
embl3="0"
end if
if embl4="" then
embl4="0"
end if
sql5="insert into gold_rend_tet (rend_azon,cikk_azonosito,mennyiseg,termek_ar," _
& "embl_tech,embl_term," _
& "embl_szin,embl_grafika,embl_szoveg,embl_szin1,embl_szin2,embl_szin3,embl_szin4," _
& "embl_szin5,embl_megj,tipus,fixktg,valtktg,embl_id) " _
& " values " _
& "("+cstr(maxazon)+"," _
& cikkazon+"," _
& kosar_db+"," _
& ar+"," _
& "'"+embl1+"'," _
& embl3+"," _
& embl2+"," _
& "'"+kepfile+"'," _
& "'"+szoveg+"'," _
& "'"+szinkod1+"'," _
& "'"+szinkod2+"'," _
& "'"+szinkod3+"'," _
& "'"+szinkod4+"'," _
& "'"+szinkod5+"'," _
& "'"+embl_megjegyzes+"'," _
& "'"+embl5+"'," _
& cstr(fixktg)+"," _
& cstr(valtktg)+"," & cstr(embl4) & ")"
'response.write sql5
set lista5=cnnsearch.execute(sql5)
end if
next
end if
'------------------------------------------ levél küldés ------------------------------------------
strBody = "" & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& "
" & strSubject & "" & vbCrLf _
& "
" & vbCrLf _
& "" & vbCrLf _
& "" & vbCrLf _
& "
" & vbCrLf _
& " " & vbCrLf _
& " "
strbody=strbody & strSubject
strbody=strbody & " | " & vbCrLf _
& "
" & vbCrLf _
& "
"
strbody=strbody & "
" & "Köszönjük megrendelését!
Amennyiben 1 munkanapon belül nem vesszük fel Önnel a kapcsolatot, mert valamelyen technikai probléma okán nem kaptuk meg a megrendelését, kérjük, keressen meg minket telefonon!
"
strbody=strbody & Amennyiben_ez_a_megrendeles & "
"
strbody=strbody & "
" & Megrendeles_szama & ": "
strbody=strbody & cstr(maxazon) & "
"
strbody=strbody & " " & vbCrLf _
& "
" & vbCrLf _
& "
" & vbCrLf _
& "" & vbCrLf _
& ""
strbody=strbody & szallito
strbody=strbody & "" & vbCrLf _
& "" & vbCrLf _
& "| "
strbody=strbody & nev
strbody=strbody & " | " & vbCrLf _
& "Cégajándék Kft | " & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "| "
strbody=strbody & Irsz_Varos
strbody=strbody & " | " & vbCrLf _
& "1119 | " & vbCrLf _
& "Budapest | " & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "| "
strbody=strbody & Cim
strbody=strbody & " | " & vbCrLf _
& "Fehérvári út 41. | " & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "| Telefon: | " & vbCrLf _
& "(+36-1) 382-9190 | " & vbCrLf _
& " " & vbCrLf _
& "" & vbCrLf _
& "| Fax | " & vbCrLf _
& "(+36-1) 382-9199 | " & vbCrLf _
& " " & vbCrLf
strbody=strbody _
& "" & vbCrLf _
& "| Web | " & vbCrLf _
& "www.gifton.hu | " & vbCrLf _
& " " & vbCrLf _
& " |
" & vbCrLf _
& "