<% 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 %>