%
Response.Expires = -1 'asp altijd opnieuw van de server laten komen
Response.Buffer = true 'asp in een keer laten zien
' ------------------------------------------------------------------------------------------------------------------------------------
' FUNCTIE ADD IN WINKELWAGENTJE (TOEVOEGEN)
' ------------------------------------------------------------------------------------------------------------------------------------
' 17-03-2005 Wijzigingen i.v.m. verkeerd geheugengebruik
' 24-03-2005 Nieuwe databasetool
' # 001 28-03-2005 Maatwerk Martin Mans: openen van subsubmenu.asp
' # 002 15-06-2007 Maatwerk Urker Mannen Ensemble: openen CONTACTFORMULIER als er een geldige code UK22 is ingegeven. De bestelling
' staat al in het veld "opmerkingen".
' ------------------------------------------------------------------------------------------------------------------------------------
%>
<%
dim artikelnr
dim omschrijving, omschrijvingMELDING
dim aantal
dim prijs
dim artikelteller, volgnummer
dim controle
dim messagetekst
dim totaalaantal
dim gevondenJN
dim concertagendaID
dim bestelconcertagendaID
dim concertagendaIDteller
dim optie1, optie2, optie3
dim artikelgevondenJN
dim optietoevoegen
dim maatwerkvariant
dim dvdJN
' VARIABELEN TBV BEREKEN_TOTAALBEDRAG
dim hoogsteteller, t1, t2
dim v1, v2, v3
dim intAantal, intPrijs, regelbedrag, totaalbedrag
dim verzendkosten
dim actiecode
dim agendabestelID
' # 002
dim maatwerkUME
maatwerkUME = "NEE"
if Request.Querystring("herberekenACTIE") = "JA" then
if Request.Form("actiecode") > " " then
actiecode = Request.Form("actiecode")
end if
end if
if actiecode = "" AND Session("BESTELACTIECODE") <> "" then actiecode = Session("BESTELACTIECODE")
maatwerkvariant = Session("ARTIKELOPTIES_WEBSHOP") + 0
%>
<%
if Session("top") = "JA" then
Response.write " " & chr(10)
else
Response.write " " & chr(10)
end if
%>
">
<%
if Session("actief") <> "JA" then
Session("artikelteller") = 0
end if
' IS HET ARTIKEL UIT HET FOTOBOEK BESTELD?
if Request.Querystring("herberekenACTIE") <> "JA" AND Request.Querystring("bestelfoto") > " " then
actiecode = ""
artikelnr = Request.Querystring("bestelfoto")
if right(artikelnr, 5) = "10x15" then
prijs = 1000000000.001 + (300/100) ' 3,- per foto
end if
if right(artikelnr, 5) = "13x18" then
prijs = 1000000000.001 + (500/100) ' 5,- per foto
end if
if right(artikelnr, 5) = "20x30" then
prijs = 1000000000.001 + (750/100) ' 7,50 per foto
end if
prijs = right(Cstr(prijs), 10)
teller2 = 1
while mid(prijs,teller2,1) = "0"
teller2 = teller2 + 1
wend
prijs = mid(prijs, teller2, (len(prijs)- teller2))
omschrijving = "Foto: /images/" & Session("submap") & Session("albumID") & "/images/" & artikelnr
omschrijving = replace(omschrijving, "\", "/")
omschrijving = replace(omschrijving, "-10x15", " (10x15 cm)")
omschrijving = replace(omschrijving, "-20x30", " (20x30 cm)")
omschrijving = replace(omschrijving, "-13x18", " (13x18 cm)")
omschrijvingMELDING = omschrijving
artikelnr = "Foto-" & artikelnr
aantal = "1"
if Request.Form("aantal") > " " AND IsNumeric(Request.Form("aantal")) then
aantal = Request.Form("aantal") & ""
end if
end if
' ------------------------------------------------------------------------
' IS HET ARTIKEL VANUIT DE CONCERTAGENDA BESTELD?
' ------------------------------------------------------------------------
' BIJ WEERGAVE 5 (BESTELLIJST):
if Request.Querystring("herberekenACTIE") <> "JA" AND Request.Querystring("concertagendaID") > " " then
agendabestelID = Request.Querystring("concertagendaID")
end if
if Request.Form("agendabestelID") > " " then
agendabestelID = Request.Form("agendabestelID")
end if
if Request.Querystring("herberekenACTIE") <> "JA" AND agendabestelID > " " then
DATABASE_OPEN
tempinput = Replace(agendabestelID, " ", "")
allstates = split(tempinput,",")
maxcounter = ubound(allstates)
FOR counter= 0 TO maxcounter
thisstate=allstates(counter)
statement = "SELECT codeIDsoort, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, datum, aanvangstijd, toegangsprijs, plaats, locatie, concertagendaID FROM concertagenda WHERE concertagendaID = " & thisstate & ""
controlestatement = statement
%><%
Set oRs = oConn.Execute(statement)
Do while (Not oRs.eof)
actiecode = ""
artikelnr = oRs("concertagendaID") & oRs("plaats")
bestelconcertagendaID = oRs("concertagendaID")
if Request.Querystring("optie1") = "JA" then artikelnr = artikelnr & "optie1"
if Request.Querystring("optie2") = "JA" then artikelnr = artikelnr & "optie2"
if Request.Querystring("optie3") = "JA" then artikelnr = artikelnr & "optie3"
artikelnr = Replace(artikelnr, " ", "")
artikelnr = Replace(artikelnr, "-", "")
artikelnr = Replace(artikelnr, "'", "")
artikelnr = Replace(artikelnr, "’", "")
artikelnr = Replace(artikelnr, ":", "")
prijs = 1000000000.001 + oRs("toegangsprijs")
if Request.Querystring("optie1") = "JA" then prijs = 1000000000.001 + oRs("PRIJSoptie1")
if Request.Querystring("optie2") = "JA" then prijs = 1000000000.001 + oRs("PRIJSoptie2")
if Request.Querystring("optie3") = "JA" then prijs = 1000000000.001 + oRs("PRIJSoptie3")
optie1 = oRs("optie1")
optie2 = oRs("optie2")
optie3 = oRs("optie3")
if Request.Form("actiecode") > " " then
statement2 = "SELECT toegangsprijs FROM concertagendaprijzen WHERE concertagendaID = " & thisstate & " AND stamID = '" & Request.Form("actiecode") & "'"
controlestatement = statement2
%><%
Set oRs2 = oConn.Execute(statement2)
Do while (Not oRs2.eof)
prijs = 1000000000.001 + oRs2("toegangsprijs")
actiecode = Request.Form("actiecode")
Session("BESTELACTIECODE") = actiecode
' ============================================================================
' HIER WORDEN EVENTUELE ACTIEVOORWAARDEN BEPAALD (MAATWERK PIETER JAN LEUSINK)
' ============================================================================
if Session("BESTELACTIECODE") > " " AND oRs("codeIDsoort") > " " then
statement3 = "SELECT * FROM actievoorwaarden WHERE actieCODE = '" & LCASE(Session("BESTELACTIECODE")) & "' AND concertSOORT = '" & oRs("codeIDsoort") & "'"
controlestatement = statement3
%><%
Set oRs3 = oConn.Execute(statement3)
Do while (Not oRs3.eof)
if Session("afsluittekst2") = "" then
Session("afsluittekst2") = oRs3("afsluittekst2") & ""
Session("combinatieAndereActies") = oRs3("combinatieAndereActies") & ""
Session("verzendkostenACTIEjn") = oRs3("verzendkosten")
end if
oRs3.MoveNext
Loop
oRs3.close
Set oRs3 = Nothing
end if
' ============================================================================
oRs2.MoveNext
Loop
oRs2.close
Set oRs2 = Nothing
end if
prijs = right(Cstr(prijs), 10)
teller2 = 1
while mid(prijs,teller2,1) = "0"
teller2 = teller2 + 1
wend
prijs = mid(prijs, teller2, (len(prijs)- teller2))
omschrijving = "Toegangskaarten " & day(oRs("datum")) & "-" & month(oRs("datum")) & "-" & year(oRs("datum")) & " - " & oRs("plaats") & " - " & oRs("aanvangstijd")
if actiecode > " " then
omschrijving = omschrijving & " (actiecode: " & actiecode & ")"
' # 002
if Session("WEBSITEID") = "UME" and Lcase(actiecode) = "uk22" then
maatwerkUME = "JA"
Session("opmerkingen_UME") = omschrijving
end if
end if
if Request.Querystring("optie1") = "JA" then omschrijving = omschrijving & " (" & optie1 & ")"
if Request.Querystring("optie2") = "JA" then omschrijving = omschrijving & " (" & optie2 & ")"
if Request.Querystring("optie3") = "JA" then omschrijving = omschrijving & " (" & optie3 & ")"
omschrijvingMELDING = omschrijving
aantal = "1"
if Request.Form("aantal") > " " AND IsNumeric(Request.Form("aantal")) then
aantal = Request.Form("aantal") & ""
end if
oRs.MoveNext
Loop
oRs.close
Set oRs = Nothing
v1 = artikelnr + "_oms"
v2 = artikelnr + "_aantal"
v3 = artikelnr + "_prijs"
v4 = artikelnr + "_agendaID"
' was dit artikel al besteld?
controle = Session(v3)
Session(v1) = omschrijving
session(v2) = aantal
session(v3) = prijs
session(v4) = bestelconcertagendaID
if controle = "" then
Session("artikelteller") = Session("artikelteller") + 1
artikelteller = Session("artikelteller") + 0
artikelteller = artikelteller + 1000
volgnummer = "volgnummer" & right(Cstr(artikelteller),3)
Session(volgnummer) = artikelnr
end if
NEXT
DATABASE_CLOSE
end if
' --------------------------------------------------------------------------------------------------
' IS HET ARTIKEL RECHTSTREEKS VANUIT DE CD-PAGINA OF VANUIT HET ZOEKSCHERM BESTELD?
' --------------------------------------------------------------------------------------------------
if Request.Querystring("artikel_rechtstreeks") <> "" then Session("artikel_rechtstreeks") = Request.Querystring("artikel_rechtstreeks")
if Request.Querystring("herberekenACTIE") <> "JA" AND Session("artikel_rechtstreeks") <> "" then
artikelnr = Session("artikel_rechtstreeks")
DATABASE_OPEN
statement = "SELECT optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, prijs, omschrijving FROM artikelen WHERE dmbdID = 101 AND artiID = '" & artikelnr & "'"
controlestatement = statement
%><%
Set oRs = oConn.Execute(statement)
Do while (Not oRs.eof)
artikelnr = Replace(artikelnr, ".", "ppuunntt")
prijs = 1000000000.001 + oRs("prijs")
omschrijving = Replace(oRs("omschrijving"), "|", " ")
if Request.Form("uitvoering") > " " then omschrijving = omschrijving & " - " & Request.Form("uitvoering")
if Request.Form("kleur") > " " then omschrijving = omschrijving & " - " & Request.Form("kleur")
omschrijvingMELDING = omschrijving
if maatwerkvariant = 1 then
' IN DEZE VARIANT WORDT ER DIRECT MET DE JUISTE OPTIE BESTELD. DE OMSCHRIJVING EN PRIJS WORDEN DAN GEHEEL OVERGEHOMEN VAN DE GESELECTEERDE OPTIE
if Request.Querystring("optie1") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie1")
omschrijving = oRs("optie1")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie1"
end if
if Request.Querystring("optie2") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie2")
omschrijving = oRs("optie2")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie2"
end if
if Request.Querystring("optie3") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie3")
omschrijving = oRs("optie3")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie3"
end if
end if
if maatwerkvariant = 2 then
' IN DEZE VARIANT WORDT HET ARTIKEL TOEGEVOEGD AAN HET WINKELWAGENTJE EN WORDEN DE OPTIES ALS APARTE REGEL AAN HET WINKELWAGENTJE TOEGEVOEGD
if Request.Querystring("optie1") = "" AND Request.Querystring("optie2") = "" AND Request.Querystring("optie3") = "" then
if oRs("optie1") > " " then optietoevoegen = "add_in_ww.asp?artikel_rechtstreeks=" & artikelnr & "&optie1=JA"
end if
if Request.Querystring("optie1") = "JA" then
if oRs("optie2") > " " then optietoevoegen = "add_in_ww.asp?artikel_rechtstreeks=" & artikelnr & "&optie2=JA"
prijs = 1000000000.001 + oRs("PRIJSoptie1")
omschrijving = "TOEGEVOEGD: " & oRs("optie1")
artikelnr = artikelnr & "optie1"
end if
if Request.Querystring("optie2") = "JA" then
if oRs("optie3") > " " then optietoevoegen = "add_in_ww.asp?artikel_rechtstreeks=" & artikelnr & "&optie3=JA"
prijs = 1000000000.001 + oRs("PRIJSoptie2")
omschrijving = "TOEGEVOEGD: " & oRs("optie2")
artikelnr = artikelnr & "optie2"
end if
if Request.Querystring("optie3") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie3")
omschrijving = "TOEGEVOEGD: " & oRs("optie3")
artikelnr = artikelnr & "optie3"
end if
end if
if maatwerkvariant = 3 then
' IN DEZE VARIANT WORDT EERST HET HOOFDARTIKEL AAN HET MANDJE TOEGEVOEGD, DAARNA KUNNEN EVENTUEEL DE OPTIES WORDEN GESELECTEERD
if Request.Querystring("optie1") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie1")
omschrijving = oRs("optie1")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie1"
end if
if Request.Querystring("optie2") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie2")
omschrijving = oRs("optie2")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie2"
end if
if Request.Querystring("optie3") = "JA" then
prijs = 1000000000.001 + oRs("PRIJSoptie3")
omschrijving = oRs("optie3")
omschrijvingMELDING = omschrijving
artikelnr = artikelnr & "optie3"
end if
end if
prijs = right(Cstr(prijs), 10)
teller2 = 1
while mid(prijs,teller2,1) = "0"
teller2 = teller2 + 1
wend
prijs = mid(prijs, teller2, (len(prijs)- teller2))
aantal = "1"
Session("artikel_rechtstreeks") = ""
oRs.MoveNext
Loop
oRs.close
Set oRs = Nothing
DATABASE_CLOSE
end if
if Request.Querystring("herberekenACTIE") <> "JA" then
v1 = artikelnr + "_oms"
v2 = artikelnr + "_aantal"
v3 = artikelnr + "_prijs"
v4 = artikelnr + "_agendaID"
' was dit artikel al besteld?
controle = Session(v3)
Session(v1) = omschrijving
session(v2) = aantal
session(v3) = prijs
session(v4) = bestelconcertagendaID
if controle = "" then
Session("artikelteller") = Session("artikelteller") + 1
artikelteller = Session("artikelteller") + 0
artikelteller = artikelteller + 1000
volgnummer = "volgnummer" & right(Cstr(artikelteller),3)
Session(volgnummer) = artikelnr
end if
end if
BEREKEN_TOTAALBEDRAG
Session("actief") = "JA"
%>
<%
' ----------------------------------------------------------------------------------------------------------------------------
' NA HET TOEVOEGEN VAN EEN ARTIKEL AAN HET WINKELWAGENTJE, WORDT HET WINKELWAGENTJE IN HET ZELFDE FRAME GETOOND
if optietoevoegen = "" AND Request.Querystring("herberekenACTIE") <> "JA" then
if Request.Querystring("menuID") > 0 then
' ER IS BESTELD VANUIT EEN WILLEKEURIGE TEKSTPAGINA (VIA LINK OF BUTTON)
Session("menuIDterug") = Request.Querystring("menuID")
Session("caheID") = 0
' Session("verderwinkelen") = ""
if Session("#WINKELWAGENTJE") > " " then
response.redirect "hoofdmenu.asp?menu=" & Session("#WINKELWAGENTJE")
else
response.redirect "hoofdmenu.asp?menu=winkelwagentje"
end if
else
' ER IS BESTELD VANUIT catalogus.asp
Session("menuIDterug") = 0
if Session("verderwinkelen") = Replace(Session("verderwinkelen"), "nieuws.asp", "") then
if Session("zoekstring") = "" then Session("verderwinkelen") = ""
end if
if Session("#WINKELWAGENTJE") > " " then
response.redirect "hoofdmenu.asp?menu=" & Session("#WINKELWAGENTJE")
else
response.redirect "hoofdmenu.asp?menu=winkelwagentje"
end if
end if
end if
' ----------------------------------------------------------------------------------------------------------------------------
' ER WORDT EEN MELDING GEGEVEN
' # 002
if maatwerkUME <> "JA" then
if optietoevoegen = "" AND Request.Querystring("herberekenACTIE") <> "JA" AND Session("boodschappendoen") = 2 then
if omschrijvingMELDING > " " then omschrijvingMELDING = Replace(omschrijvingMELDING,"""","\""")
messagetekst = "Uw bestelling van \n" & omschrijvingMELDING & "\n"
if maatwerkvariant = 2 AND (Request.Querystring("optie1") = "JA" OR Request.Querystring("optie2") = "JA" OR Request.Querystring("optie3") = "JA") then
messagetekst = messagetekst & "(inclusief de extra opties)\n "
Session("WAARSCHUWING_WINKELWAGENTJE") = "LET OP, ER ZIJN AUTOMATISCH ACTIEARTIKELEN AAN UW BESTELLING TOEGEVOEGD!"
end if
if Session("top") <> "JA" then
response.write ""
end if
messagetekst = messagetekst & "is aan uw winkelwagentje toegevoegd."
response.write ""
end if
end if
' ----------------------------------------------------------------------------------------------------------------------------
if optietoevoegen = "" AND Request.Querystring("herberekenACTIE") = "JA" then
if Session("top") = "JA" then
if Request.Querystring("menuID") > 0 then
response.redirect "winkelwagentje.asp?menuID=" & Request.Querystring("menuID") & "&requestID=" & Session("DAGTELLER")
else
response.redirect "winkelwagentje.asp"
end if
else
response.write ""
end if
end if
' ----------------------------------------------------------------------------------------------------------------------------
' # 002
if optietoevoegen = "" AND Session("WEBSITEID") = "UME" AND maatwerkUME = "JA" then
Session("opmerkingen_UME") = Session("opmerkingen_UME") & vbcrlf & vbcrlf & "Prijzen zijn inclusief verzendkosten" & vbcrlf & vbcrlf & "Actie alleen geldig voor inwoners van de gemeente Urk" & vbcrlf & vbcrlf & "De gratis-CD-actie ""Kunstig Klassiek"" is bij deze aanbieding niet van toepassing."
if Session("CONTACTFORMULIER2") > " " then
Session("CONTACTFORMULIER2") = Replace(Session("CONTACTFORMULIER2"), "#OPMERKING", Session("opmerkingen_UME"))
end if
Session("#ONDERWERPALGEMEEN") = "UME-bestelling"
hoogsteteller = Session("artikelteller") + 0
if hoogsteteller >= 1 then
for teller = 1 to hoogsteteller
t1 = teller + 1000
t2 = "volgnummer" & right(Cstr(t1),3)
artikelnr = Session(t2)
v1 = artikelnr + "_oms"
session(v1) = ""
next
end if
Response.write ""
end if
' ----------------------------------------------------------------------------------------------------------------------------
' Voer direct het java-script uit
if optietoevoegen = "" then Response.end
Response.redirect optietoevoegen
' ----------------------------------------------------------------------------------------------------------------------------
%>
<%
FUNCTION BEREKEN_TOTAALBEDRAG
hoogsteteller = Session("artikelteller") + 0
Session("TOTAALBEDRAG") = 0
totaalbedrag = 0
totaalaantal = 0
if hoogsteteller >= 1 then
Session("aantal_toegangskaarten") = 0
Session("aantal_artikelen") = 0
Session("aantal_dvds") = 0
Session("aantal_fotos") = 0
for teller = 1 to hoogsteteller
t1 = teller + 1000
t2 = "volgnummer" & right(Cstr(t1),3)
artikelnr = Session(t2)
v1 = artikelnr + "_oms"
v2 = artikelnr + "_aantal"
v3 = artikelnr + "_prijs"
aantal = session(v2)
prijs = session(v3)
bestelconcertagendaID = Session(v4) + 0
artikelgevondenJN = "NEE"
DATABASE_OPEN
statement2 = "SELECT artiID, omschrijving FROM artikelen WHERE artiID = '" & Replace(artikelnr, "ppuunntt", ".") & "'"
if statement2 > " " then statement2 = Replace(statement2, "''", "' '")
controlestatement = statement2
%><%
Set oRs2 = oConn.Execute(statement2)
Do while (Not oRs2.eof)
artikelgevondenJN = "JA"
dvdJN = "NEE"
if Lcase(oRs2("omschrijving")) <> Replace(Lcase(oRs2("omschrijving")), "dvd", "") then dvdJN = "JA"
oRs2.MoveNext
Loop
oRs2.close
Set oRs2 = Nothing
DATABASE_CLOSE
if Session(v1) > " " then
if artikelgevondenJN = "JA" then
Session("aantal_artikelen") = Session("aantal_artikelen") + Cdbl(aantal)
if dvdJN = "JA" then Session("aantal_dvds") = Session("aantal_dvds") + Cdbl(aantal)
else
if Left(artikelnr, 5) = "Foto-" then
Session("aantal_fotos") = Session("aantal_fotos") + Cdbl(aantal)
else
Session("aantal_toegangskaarten") = Session("aantal_toegangskaarten") + Cdbl(aantal)
end if
end if
end if
gevondenJN = "NEE"
if actiecode > " " then
DATABASE_OPEN
statement2 = "SELECT verkoopprijs FROM artikelactieprijzen WHERE artiID = '" & Replace(artikelnr, "ppuunntt", ".") & "' AND stamID = '" & actiecode & "'"
if statement2 > " " then statement2 = Replace(statement2, "''", "' '")
controlestatement = statement2
%><%
Set oRs2 = oConn.Execute(statement2)
Do while (Not oRs2.eof)
prijs = 1000000000.001 + oRs2("verkoopprijs")
Session("BESTELACTIECODE") = actiecode
prijs = right(Cstr(prijs), 10)
teller2 = 1
while mid(prijs,teller2,1) = "0"
teller2 = teller2 + 1
wend
prijs = mid(prijs, teller2, (len(prijs)- teller2))
session(v3) = prijs
gevondenJN = "JA"
oRs2.MoveNext
Loop
oRs2.close
Set oRs2 = Nothing
DATABASE_CLOSE
end if
concertagendaID = ""
if artikelgevondenJN = "NEE" AND gevondenJN = "NEE" AND left(artikelnr, 5) <> "Foto-" AND actiecode > " " then
for concertagendaIDteller = 1 to len(artikelnr)
if IsNumeric(mid(artikelnr, concertagendaIDteller , 1)) then concertagendaID = concertagendaID & mid(artikelnr, concertagendaIDteller, 1) & ""
next
if concertagendaID > " " then
DATABASE_OPEN
statement2 = "SELECT toegangsprijs FROM concertagendaprijzen WHERE concertagendaID = " & concertagendaID & " AND stamID = '" & actiecode & "'"
controlestatement = statement2
%><%
Set oRs2 = oConn.Execute(statement2)
Do while (Not oRs2.eof)
prijs = 1000000000.001 + oRs2("toegangsprijs")
Session("BESTELACTIECODE") = actiecode
prijs = right(Cstr(prijs), 10)
teller2 = 1
while mid(prijs,teller2,1) = "0"
teller2 = teller2 + 1
wend
prijs = mid(prijs, teller2, (len(prijs)- teller2))
session(v3) = prijs
oRs2.MoveNext
Loop
oRs2.close
Set oRs2 = Nothing
DATABASE_CLOSE
end if
end if
if Session(v1) <> "" then
intAantal = Cdbl(aantal)
intPrijs = prijs + 0
regelbedrag = (intAantal * intPrijs)
totaalbedrag = totaalbedrag + regelbedrag
totaalaantal = totaalaantal + intAantal
end if
next
if totaalbedrag <> 0 then
' VERZENDKOSTEN
verzendkosten = Session("VERZENDKOSTEN") + 0
' MAATWERK VOOR UITGEVERIJ JEWEKA en JAN W. KLIJN
' ONDERSTAANDE MAATWERK IS OP 14-09-2006 VERVANGEN DOOR HET MAATWERK DAT DAAR WEER ONDER STAAT
if totaalaantal >= (Session("STAFFEL1") + 0) AND Session("STAFFEL1") > 0 then verzendkosten = Session("PRIJS_STAFFEL1") + 0
if totaalaantal >= (Session("STAFFEL2") + 0) AND Session("STAFFEL2") > 0 then verzendkosten = Session("PRIJS_STAFFEL2") + 0
if totaalaantal >= (Session("STAFFEL3") + 0) AND Session("STAFFEL3") > 0 then verzendkosten = Session("PRIJS_STAFFEL3") + 0
if totaalaantal >= (Session("STAFFEL4") + 0) AND Session("STAFFEL4") > 0 then verzendkosten = Session("PRIJS_STAFFEL4") + 0
if totaalaantal >= (Session("STAFFEL5") + 0) AND Session("STAFFEL5") > 0 then verzendkosten = Session("PRIJS_STAFFEL5") + 0
if totaalaantal >= (Session("STAFFEL6") + 0) AND Session("STAFFEL6") > 0 then verzendkosten = Session("PRIJS_STAFFEL6") + 0
if totaalaantal >= (Session("STAFFEL7") + 0) AND Session("STAFFEL7") > 0 then verzendkosten = Session("PRIJS_STAFFEL7") + 0
if totaalaantal >= (Session("STAFFEL8") + 0) AND Session("STAFFEL8") > 0 then verzendkosten = Session("PRIJS_STAFFEL8") + 0
if totaalaantal >= (Session("STAFFEL9") + 0) AND Session("STAFFEL9") > 0 then verzendkosten = Session("PRIJS_STAFFEL9") + 0
' HET ACTUELE MAATWERK VAN JEWEKA
if Session("WEBSITEID") = "JEWEKA" then
if totaalbedrag > 100 then
verzendkosten = 0
else
verzendkosten = 5
end if
end if
Session("VERZENDKOSTEN") = verzendkosten + 0
totaalbedrag = totaalbedrag + verzendkosten
end if
end if
Session("TOTAALBEDRAG") = totaalbedrag + 0
END FUNCTION
%>