<%
'response.write Session("KOSAR_MAX") & "--------------"
if Session("KOSAR_MAX") >= "1" then
sTotal = 0
sEngszorzo=1
szallitasi_ktg=2500
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ázva később"
case "A" s="Hűségpontból"
end select
if (embl5="N" or embl5="E2") 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! ----------
%>
<%= rstSearch.Fields("CIKKSZAM").Value %>
<%= rstSearch.Fields("CIKKMEGNEVEZES").Value %>
"A" then
devjel=Session("DEV1_JEL")
else
devjel="pont"
end if
if Session("DEV1")="HUF" then
response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,0) +"' > "
else
response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,2) +"' > "
end if
%>
<%=devjel%>
"
else
response.write "'"+FormatNumber( cDbl(kosar_db) * Cdbl(ar)*sEngszorzo,2) +"' > "
end if
%>
<%
end if
end if
if embl5="E" then
mennyiseg = kosar_db
emblkod=embl1
emblszin=embl2
emblterm=embl3
emblkalkkiir2 cikkazon, mennyiseg, emblszin, emblterm, emblkod
end if
if embl5="E2" then
emblkalkkiir3
end if
if embl5<>"A" then
sTotal=sTotal+kosar_db*ar
end if
next
end if
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 "E" s="Emblémázva később"
case "A" s="Hűségpontból"
end select
sTotalA=0
if embl5="A" then '----------az ajándékpont beváltásos termékek
%>
"A" then
devjel=Session("DEV1_JEL")
else
devjel="pont"
end if
if Session("DEV1")="HUF" then
response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,0) +"' > "
else
response.write "'"+FormatNumber( Cdbl(ar)*sEngszorzo,2) +"' > "
end if
%>
<%=devjel%>
"
else
response.write "'"+FormatNumber( cDbl(kosar_db) * Cdbl(ar)*sEngszorzo,2) +"' > "
end if
%>
* A szállítási határidő e cégszerűen aláírt megrendelő válaszfax beérkezésétől számítandó. Emblémázandó termékek esetén a szállítási határidő lejárta előtt legalább 10 munkanappal meg kell kapjuk Öntől a cégszerűen aláírt "Emblémázási utasítás és filmjóváhagyás" válaszfaxot is! A szállítási határidők az itt megadottakhoz képest eltérhetnek a saját vagy szállítói készletek lefogyása esetén. Ilyen rendkívüli esetekben ügyfélmenedzsere felveszi a kapcsolatot Önnel, hogy egyeztessen a későbbi szállítási határidő elfogadása vagy más helyettesítő termék kiválasztása ügyében.