<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' TESTEN VAN HET ZOEK-RAKEN VAN DE Session-variabelen ' Session("#STIJLSHEET") = "" ' Response.write "" & (Request.Cookies("actueleautorisatieniveau") + 0) & "
" Session("verderwinkelen") = "" Session("menuIDterug") = 0 Session("verderwinkelenAGENDA") = "" ' D.M.V. ONDERSTAANDE CODE KAN DE ZOEKPAGINA VERVERST WORDEN EN OPGESLAGEN IN DE FAVORIETEN VAN DE BEZOEKER if Request.Querystring("zoekstring") > " " OR Session("zoekstring") > " " then if Request.Querystring("zoekstring") > " " then Session("zoekincatalogus") = "JA" Session("zoekstring") = Request.Querystring("zoekstring") end if opties = "?" For Each Itempje In Request.Querystring if Itempje <> "zoekstring" AND Itempje <> "zoekincatalogus" then opties = opties & Itempje & "=" & Request.Querystring(Itempje) & "&" Next startprogramma = "../nl/catalogus.asp" & opties & "zoekincatalogus=JA&zoekstring=" & Session("zoekstring") Session("verderwinkelen") = startprogramma end if if (Request.Querystring("zoekincatalogus") = "JA" OR Session("zoekincatalogus") = "JA") AND Request.Querystring("zoekstring") = "" AND Request.Form("zoekstring") = "" AND Session("zoekstring") > " " then Response.redirect startprogramma end if %> <% ' Response.write Session("CAT_MAXAANTALKOLOMMEN") & "
" ' ----------------------------------------------------------------------------------- ' MOGELIJKE VARIABELEN MEE TE STUREN (QUERYSTRING): ' cadrNIVO: Geeft het niveau (cadrID) aan dat getoond gaat worden ' dmbdID = BBFF waarmee de catalogus getoond moet worden. Is niet verplicht, indien niet gevuld, wordt de laatste waarde onthouden ' caheID = Het catalogusnummer dat getoond moet worden. Is niet verpicht, indiet niet gevuld, wordt de laatste waarde onthouden ' zoekstring = t.b.v. zoeken in catalogus ' artiID = voor het tonen van de specificaties van 1 product ' ----------------------------------------------------------------------------------- Session("XMLinhoud") = "" ' TBV ZOEKMACHINE if Session("zoekmethode") = 1 then if Session("actuelehoofdkeuze") > " " then Session("#CATALOGUS") = Session("actuelehoofdkeuze") if Session("actuelesubkeuze") > " " then Session("#CATALOGUS") = Session("actuelesubkeuze") end if ' ----------------------------------------------------------------------------------- ' TBV DATABASE Dim Index Dim filenaam dim laatsteregelsoort dim bezigMetGroep dim locatieafbeeldingen, locatieafbeeldingenlocaal dim i, j, k dim allstates, tempinput, maxcounter, thisstate, counter dim allemaalgevonden, toonallemaal dim oRs3, statement3 dim oRs4, statement4 Dim directory Dim FileSystemObject dim randkleurafbeeldingen dim tweekolommen, kolomteller dim tweekolommenHOOFDtoegestaanJN ' IS HET TOEGESTAAN OM OP HET HOOGSTE NIVEAU (HOOFDGROEPEN) WEL/NIET 2 (OF MEER) KOLOMMEN TE TONEN dim tweekolommenSUBtoegestaanJN ' IS HET TOEGESTAAN OM OP SUBNIVEAU (ARTIKELEN OF SUBGRROEPEN) WEL/NIET 2 (OF MEER) KOLOMMEN TE TONEN dim maxaantaltekens ' HIEROP WORDT DE TOELICHTING VAN HET ARTIKEL AFGEBROKEN EN KAN VERVOLGENS VOLLEDIG WORDEN GERAADPLEEGD MET EEN "LEES VERDER" dim maxaantalkolommen dim hoogteartikelblokje dim maatwerkvariant dim activeerbuttons dim aantalverkocht dim TOONtoelichting dim artiIDtoon, toonteller dim subgroepenapartJN dim navigatiebalk dim maxregels dim zoekinhelecatalogus dim teruglink dim volledigeweergaveJN, weergave dim stoppen Dim fso, ts dim outputfile dim objFSO1 dim objFSO2 dim documentbeschrijving dim vervanging dim hyperlinks dim hyperlinks2, HTMLlocatie dim maxaantalseconden maxaantalseconden = 7 ' maximaal aantal seconden van de zoekopdracht ' ------------------------------------------------------------------------------------------------------------------------------ ' INPUT PARAMETERS ' ------------------------------------------------------------------------------------------------------------------------------ if Session("ADMINISTRATIE_ID_CATALOGUS") > 0 then locatieafbeeldingen = "./PICTURES/" locatieafbeeldingenlocaal = "nl\PICTURES\" else locatieafbeeldingen = "../imgcatalogus/klein/" locatieafbeeldingenlocaal = "imgcatalogus\klein\" end if Session("cadrNIVO") = 0 Session("navigatie") = 0 ' NIET MEER VAN TOEPASSING if Request.querystring("navigatie") <> "" then Session("navigatie") = Request.querystring("navigatie") end if if Request.querystring("ACTIEPRIJZENWEBSHOP") > " " then Session("ACTIEPRIJZEN_WEBSHOP") = Request.querystring("ACTIEPRIJZENWEBSHOP") & "" end if if Request.querystring("cadrNIVO") <> "" then Session("cadrNIVO") = Request.querystring("cadrNIVO") end if ' NIET MEER VAN TOEPASSING if Request.querystring("cadrOMS") <> "" then Session("cadrOMS") = Request.querystring("cadrOMS") if Session("cadrOMS") > " " then Session("cadrOMS") = Replace(Session("cadrOMS"), "KUWOOTJE", "'") end if ' NIET MEER VAN TOEPASSING if Session("navigatie") >= 1 then waarde = "navigatie" & Session("navigatie") Session(waarde) = Session("cadrNIVO") waarde = "cadrOMS" & Session("navigatie") Session(waarde) = Session("cadrOMS") if Session(waarde) > " " then Session(waarde) = Replace(Session(waarde), "’", "KUWOOTJE") end if if Session("zoekincatalogus") <> "JA" then Session("zoekstring") = "" Session("zoekincatalogus") = "" if Request.Form("zoekstring") > "" then Session("zoekstring") = Request.Form("zoekstring") end if if Request.Querystring("zoekstring") > "" then Session("zoekstring") = Request.Querystring("zoekstring") end if if Request.Querystring("dmbdID") <> "" then Session("dmbdID") = Request.Querystring("dmbdID") + 0 end if if Session("dmbdID") = "" or Session("dmbdID") = 0 then Session("dmbdID") = 101 if Session("caheID") = 9999 then Session("caheID") = 1 if Request.Querystring("caheID") > " " then Session("caheID") = Request.Querystring("caheID") + 0 end if if Session("caheID") = 0 OR Session("caheID") = "" then Session("caheID") = 1 artiIDtoon = "" if Request.Querystring("artiID") > " " then artiIDtoon = Replace(Request.Querystring("artiID"), "PPLLUUSS", "+") end if if Request.Querystring("bewerkbutton") > " " then Session("bewerkbutton") = Request.Querystring("bewerkbutton") end if bewerkbutton = Session("bewerkbutton") ' ------------------------------------------------------------------------------------------------------------------------------ ' STANDAARD INSTELLINGEN ' ------------------------------------------------------------------------------------------------------------------------------ hoogteartikelblokje = 0 maxaantalkolommen = 2 maxaantaltekens = 160 tweekolommenHOOFDtoegestaanJN = "JA" tweekolommenSUBtoegestaanJN = "NEE" randkleurafbeeldingen = "" maxregels = 25 if artiIDtoon = "" AND Session("zoekstring") = "" then maxregels = 200 end if if Session("WEBSITEID") = "PROMUSICPUBLISHING" then maxregels = 1000 if Session("CAT_HOOGTEARTIKELBLOKJE") > 0 then hoogteartikelblokje = Session("CAT_HOOGTEARTIKELBLOKJE") if Session("CAT_MAXAANTALKOLOMMEN") > 0 then maxaantalkolommen = Session("CAT_MAXAANTALKOLOMMEN") + 0 if Session("CAT_MAXAANTALTEKENS") > 0 then maxaantaltekens = Session("CAT_MAXAANTALTEKENS") if Session("CAT_meerderekolommenHOOFDtoegestaanJN") > " " then tweekolommenHOOFDtoegestaanJN = Session("CAT_meerderekolommenHOOFDtoegestaanJN") if Session("CAT_meerderekolommenSUBtoegestaanJN") > " " then tweekolommenSUBtoegestaanJN = Session("CAT_meerderekolommenSUBtoegestaanJN") if Session("CAT_RANDKLEURAFBEELDINGEN") > " " AND Session("CAT_RANDKLEURAFBEELDINGEN") <> "NVT" then randkleurafbeeldingen = Session("CAT_RANDKLEURAFBEELDINGEN") ' ------------------------------------------------------------------------------------------------------------------------------ ' MAATWERK INSTELLINGEN ' ------------------------------------------------------------------------------------------------------------------------------ if Session("WEBSITEID") = "IGORRUHADZE" then randkleurafbeeldingen = "#FFFFFF" tweekolommenHOOFDtoegestaanJN = "NEE" end if if Session("WEBSITEID") = "ARJENUITBEIJERSE3" then randkleurafbeeldingen = "#995151" end if if Session("WEBSITEID") = "JANWKLIJN" then tweekolommenSUBtoegestaanJN = "JA" randkleurafbeeldingen = "#FFFFFF" maxaantaltekens = 125 maxaantalkolommen = 2 hoogteartikelblokje = 170 end if if Session("WEBSITEID") = "VITAMINEZEE" THEN tweekolommenHOOFDtoegestaanJN = "NEE" end if ' ------------------------------------------------------------------------------------------------------------------------------- maatwerkvariant = Session("ARTIKELOPTIES_WEBSHOP") + 0 if artiIDtoon > " " then teller = 0 statement = "SELECT cadrOMS, tonenJN, tonenHandelaarJN, caheID, dmbdID, cadrNIVO FROM catalogus WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND cadrRSOORT = 1 AND artiID = '" & artiIDtoon & "' ORDER BY artiID, cadrID" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND teller = 0 if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then teller = 1 Session("dmbdID") = oRs("dmbdID") Session("caheID") = oRs("caheID") Session("cadrNIVO") = oRs("cadrNIVO") artOMS = oRs("cadrOMS") end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if if Session("caheID") = "" OR Session("caheID") = 0 then %> <% Response.end end if ' ----------------------------------------- ' OPBOUW APARTE VARIABELE MET SUBGROEPEN ' ----------------------------------------- if Request.Querystring("subgroepenschonen") = "NEE" then subgroepenapartJN = "JA" else subgroepenapartJN = "NEE" Session("OPBOUW_SUBGROEPEN") = "" if Session("SUBGROEPEN_APART") = "JA" then laatsteregelsoort = 0 if Session("dmbdID") > " " AND Session("caheID") > " " AND Session("zoekstring") = "" then statement = "SELECT tonenJN, tonenHandelaarJN, cadrID, cadrRSOORT FROM catalogus WHERE cadrRSOORT <> 2 AND cadrRSOORT <> 5 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & (Session("cadrNIVO") + 0) & "" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND subgroepenapartJN = "NEE" if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then if laatsteregelsoort > 0 AND oRs("cadrRSOORT") <> laatsteregelsoort then subgroepenapartJN = "JA" laatsteregelsoort = oRs("cadrRSOORT") end if oRs.MoveNext Loop oRs.close Set oRs = Nothing if subgroepenapartJN = "JA" then Session("cadrNIVO_OPBOUW_SUBGROEPEN") = Session("cadrNIVO") statement = "SELECT tonenJN, tonenHandelaarJN, cadrID, cadrOMS FROM catalogus WHERE cadrRSOORT = 9 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & (Session("cadrNIVO") + 0) & "" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then if Session("OPBOUW_SUBGROEPEN") > " " then Session("OPBOUW_SUBGROEPEN") = Session("OPBOUW_SUBGROEPEN") & vbcrlf Session("OPBOUW_SUBGROEPEN") = Session("OPBOUW_SUBGROEPEN") & oRs("cadrID") & "|" & oRs("cadrOMS") end if oRs.MoveNext Loop oRs.close Set oRs = Nothing end if end if end if end if ' ----------------------------------------- ' OPBOUW NAVIGATIEBALK ' ----------------------------------------- navigatiebalk = "" teller = 0 schonenJNdoorgeven = "JA" if Session("OPBOUW_SUBGROEPEN") > " " then schonenJNdoorgeven = "NEE" if Session("cadrNIVO") > 0 then toonnivo = Session("cadrNIVO") WHILE toonnivo > 0 AND teller < 10 teller = teller + 1 statement = "SELECT cadrNIVO, cadrID, cadrOMS FROM catalogus WHERE dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrID = " & (toonnivo + 0) & "" controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND Session("dmbdID") > 0 AND Session("caheID") > 0 AND toonnivo > 0 CADRomschrijving = oRs("cadrOMS") if CADRomschrijving > " " then CADRomschrijving = Replace(CADRomschrijving, "
", " ") if CADRomschrijving > " " then CADRomschrijving = Replace(CADRomschrijving, "
", " ") if CADRomschrijving > " " then CADRomschrijving = Replace(CADRomschrijving, "
", " ") if CADRomschrijving > " " then CADRomschrijving = Replace(CADRomschrijving, vbCrlf, " ") if ((Session("cadrNIVO_OPBOUW_SUBGROEPEN") + 0) = (toonnivo + 0)) AND Session("OPBOUW_SUBGROEPEN") > " " then schonenJNdoorgeven = "JA" end if ' navigatiebalk = " > " & CADRomschrijving & "" & navigatiebalk navigatiebalk2 = " > " & CADRomschrijving & "" & navigatiebalk ' if teller = 1 then teruglink = "" & Replace(("Alles van " & CADRomschrijving), " ", " ") & "" if teller = 1 then teruglink = "" & Replace(("Alles van " & CADRomschrijving), " ", " ") & "" end if toonnivo = oRs("cadrNIVO") + 0 oRs.MoveNext Loop oRs.close Set oRs = Nothing WEND end if hoofdgroepomschrijving = "HOOFDGROEPEN" if Session("caheID") > 0 then statement = "SELECT omschrijving FROM catalogusheaders WHERE caheID = " & Session("caheID") controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) hoofdgroepomschrijving = oRs("omschrijving") oRs.MoveNext Loop oRs.close Set oRs = Nothing ' if navigatiebalk > " " then ' navigatiebalk = "" & hoofdgroepomschrijving & " " & navigatiebalk navigatiebalk2 = "" & hoofdgroepomschrijving & " " & navigatiebalk navigatiebalkHTML = Replace(navigatiebalk, " > ", " ") navigatiebalk = "Navigatie: " & navigatiebalk ' end if ' if teller = 0 then teruglink = "" & Replace(("Alles van " & hoofdgroepomschrijving), " ", " ") & "" if teller = 0 then teruglink = "" & Replace(("Alles van " & hoofdgroepomschrijving), " ", " ") & "" end if else navigatiebalkHTML = hoofdgroepomschrijving end if ' ER IS OP "VERDER WINKELEN" GEDRUKT VANUIT WINKELWAGENTJE.ASP if Session("navigatiebalkCATALOGUSterug") > " " then navigatiebalk = Session("navigatiebalkCATALOGUSterug") Session("navigatiebalkCATALOGUSterug") = "" end if if Session("NAVIGATIEBALKKOPterug") > " " then Session("NAVIGATIEBALK") = Session("NAVIGATIEBALKKOPterug") Session("NAVIGATIEBALKKOPterug") = "" end if %> <% if navigatiebalkHTML > " " then if artiIDtoon > " " AND artOMS > " " then inputveld = artOMS VERWIJDERTAGS Response.write outputveld & " - " else inputveld = navigatiebalkHTML VERWIJDERTAGS Response.write outputveld & " - " end if else if Session("TITEL_SUBKEUZE") > " " then Response.write Session("TITEL_SUBKEUZE") & " - " else if Session("TITEL_HOOFDKEUZE") > " " then Response.write Session("TITEL_HOOFDKEUZE") & " - " end if end if end if Response.write Session("SITE-NAAM") %> "> class='algemeen'> " klaar = "JA" end if ' AFSLUITEN VAN EEN GROEPSBLOKJE (SUBNIVO) if klaar = "NEE" and (oRs("cadrRSOORT") = 1 or oRs("cadrRSOORT") = 9) and bezigMetGroep = "JA" then ' Response.write "" Response.write "
<% Session("zoekenincatalogusvoorkeur") = "JA" if Session("treeJN") = "JA" then Session("#TITEL") = "CATALOGUS" if Session("#MENU-TITEL") > " " AND hoofdgroepomschrijving > " " then Session("#MENU-TITEL") = hoofdgroepomschrijving end if if Session("#TITEL") > " " AND hoofdgroepomschrijving > " " then Session("#TITEL") = hoofdgroepomschrijving end if %><% if ("0" & Session("menubeheerniveau")) > "00" AND Session("menubeheerniveau") <= Session("actueleautorisatieniveau") then Response.write "" Response.write "
" Response.write "  " if Session("bewerkbutton") <> "NEE" then Response.write "" else Response.write "" end if Response.write "

" end if tonenJN = "NEE" toontabel = "
" if Session("zoekstring") = "" AND ((Session("WEBSITEID") <> "JFREY" AND Session("cadrNIVO") = 0) OR Session("cadrNIVO") > 0) AND navigatiebalk > " " then tonenJN = "JA" toontabel = toontabel & "" & chr(10) ' TBV "VERDER WINKELEN" VANUIT WINKELWAGENTJE.ASP Session("navigatiebalkCATALOGUS") = navigatiebalk end if ' TBV "VERDER WINKELEN" VANUIT WINKELWAGENTJE.ASP Session("navigatiebalkKOP") = Session("NAVIGATIEBALK") if Session("WEBSITEID") = "VITAMINEZEE" AND Session("actuelehoofdkeuze") = "catalogus" then tonenJN = "JA" toontabel = toontabel & "" end if timeID2 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) timeID3 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) ' --------------------------------------------------------- ' DIT IS DE TEKST DIE BOVEN DE ARTIKELREGELS WORDT GETOOND ' --------------------------------------------------------- ' DE VOLGORDE WAARMEE DE CATALOGUS GETOOND WORDT IS: ' - TEKSTINHOUD BOVEN ARTIKELREGELS (WORDT NIET GETOOND ALS DE GEBRUIKER MET EEN GEBRUIKERSSOORT IS INGELOGD (DAT ZIJN DE ZGN. (TUSSEN)HANDELAREN) ' - ARTIKELREGELS ' - TEKSTINHOUD BOVEN HOOFD/SUBGROEPEN ' - HOOFD/SUBGROEPEN ' --------------------------------------------------------- if (Session("OH_gebruikerssoort") = "" OR Session("OH_gebruikerssoort") = " ") AND Session("zoekstring") = "" AND artiIDtoon = "" then stoppen = "NEE" statement2 = "SELECT tonenJN, tonenHandelaarJN, cadrRSOORT, paginaID FROM catalogus WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY cadrVOLGNR" controlestatement = statement2 %><% Set oRs2 = oConn.Execute(statement2) Do while (Not oRs2.eof) AND stoppen = "NEE" if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then if oRs2("cadrRSOORT") <> 5 then stoppen = "JA" if stoppen = "NEE" then tonenJN = "JA" toontabel = toontabel & "" end if end if oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing end if toontabel = toontabel & "
" toontabel = toontabel & navigatiebalk toontabel = toontabel & " 
 
" ' ----------------------------------------------------------------------------------------------------------------------- Session("nieuwspaginaIDTF") = 309 legeregel = "NEE" %> <% toontabel = toontabel & nieuwsitem toontabel = toontabel & "
" Session("nieuwspaginaIDTF") = oRs2("paginaID") legeregel = "NEE" %><% toontabel = toontabel & nieuwsitem toontabel = toontabel & "
" if tonenJN = "JA" then Response.write toontabel tonenJN = "NEE" end if ' ---------------------------------------------------------- volledigeweergaveJN = "JA" ' JA: DE INHOUD VAN DE CATALOGUS WORDT VOLLEDIG WEERGEGEVEN, DUS GEEN ZOEKRESULTATEN OF ALLEEN ARTIKELREGELS ' NEE: ER WORDT EEN SELECTIE UIT DE CATALOGUS GETOOND, DOOR BIJV. ZOEKEN OF ALLEEN ARTIKELREGELS ' ---------------------------------------------------------- weergave = 1 ' 1 = artikelen ' 9 = subgroepen ' ---------------------------------------------------------- if Session("zoekstring") = "" then if Session("dmbdID") > " " AND Session("caheID") > " " AND Session("cadrNIVO") > " " then if subgroepenapartJN = "JA" then volledigeweergaveJN = "NEE" else volledigeweergaveJN = "JA" weergave = 1 end if end if else volledigeweergaveJN = "NEE" end if if artiIDtoon > " " then volledigeweergaveJN = "NEE" end if ' ------------------------------------------------------------------------------------------------------------------------------------------- ' ALS ER EEN (TUSSEN)HANDELAAR / ZZP-ER IS INGELOGD, DAN WORDEN NIET OP 1 SCHERM ZOWEL GROEPEN ALS ARTIKELEN GETOOND if subgroepenapartJN = "JA" AND Session("WEBSITEID") = "JFREY" AND Session("OH_gebruikerssoort") > " " AND weergave = 1 then subgroepenapartJN = "NEE" Session("OPBOUW_SUBGROEPEN") = "" volledigeweergaveJN = "JA" weergave = 9 end if ' ------------------------------------------------------------------------------------------------------------------------------------------- WHILE volledigeweergaveJN <> "STOPPEN" laatsteregelsoort = 0 tweekolommen = "NEE" kolomteller = 0 regelteller = 0 if Session("dmbdID") > " " AND Session("caheID") > " " AND Session("zoekstring") = "" then statement = "SELECT tonenHandelaarJN, cadrID, cadrRSOORT FROM catalogus WHERE cadrRSOORT <> 5 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & "" ' UITGESCHAKELD: if volledigeweergaveJN = "JA" AND weergave = 1 then if weergave = 1 then statement = "SELECT tonenJN, tonenHandelaarJN, cadrID, cadrRSOORT FROM catalogus WHERE cadrRSOORT = 1 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & "" end if if volledigeweergaveJN = "JA" AND weergave = 9 then statement = "SELECT tonenJN, tonenHandelaarJN, cadrID, cadrRSOORT FROM catalogus WHERE cadrRSOORT = 9 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & "" end if controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then regelteller = regelteller + 1 laatsteregelsoort = oRs("cadrRSOORT") + 0 end if oRs.MoveNext Loop oRs.close Set oRs = Nothing if ((laatsteregelsoort <> 1 AND tweekolommenHOOFDtoegestaanJN = "JA") OR (laatsteregelsoort = 1 AND tweekolommenSUBtoegestaanJN = "JA")) then if (maxaantalkolommen + 0) > 1 AND (regelteller + 0) > 1 AND (regelteller + 0) < (maxaantalkolommen + 0) then maxaantalkolommen = (regelteller + 0) if (regelteller + 0) >= (maxaantalkolommen + 0) then tweekolommen = "JA" end if if subgroepenapartJN = "JA" AND tweekolommenSUBtoegestaanJN = "JA" then tweekolommen = "JA" end if if artiIDtoon > " " then tweekolommen = "NEE" bezigMetGroep = "NEE" laatsteregelsoort = 0 zoekinhelecatalogus = "NEE" ' DUMMY, DIT LEVERT GEEN RESULTAAT OP statement = "SELECT catalogus.dmbdID, catalogus.artiID, catalogus.cadrRSOORT, catalogus.cadrOMS, catalogus.cadrPICTURE, catalogus.cadrID FROM catalogus WHERE dmbdID = 999999" if Session("zoekstring") = "" then ' EEN DEEL VAN DE CATALOGUS KAN VERPLAATST ZIJN NAAR EEN ANDER CATALOGUSNUMMER, DE ONDERLIGGENDE REGELS WORDEN HERSTELD if Session("cadrNIVO") > 0 then statement = "UPDATE catalogus SET caheID = " & Session("caheID") & " WHERE cadrNIVO = " & Session("cadrNIVO") if statement > " " then statement = Replace(statement, "''", "' '") oConn.Execute statement end if if Session("dmbdID") > " " AND Session("caheID") > " " AND Session("cadrNIVO") > " " then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, cadrRSOORT, cadrOMS, cadrPICTURE, catalogus.cadrID FROM catalogus WHERE cadrRSOORT <> 5 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY dmbdID, caheID, cadrNIVO, cadrVOLGNR" if weergave = 1 OR subgroepenapartJN = "JA" then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, cadrRSOORT, cadrOMS, cadrPICTURE, cadrID FROM catalogus WHERE cadrRSOORT = 1 AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY dmbdID, caheID, cadrNIVO, cadrVOLGNR" end if if weergave = 9 then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, catalogus.cadrRSOORT, cadrOMS, cadrPICTURE, catalogus.cadrID FROM catalogus WHERE (cadrRSOORT = 2 OR cadrRSOORT = 9) AND (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY dmbdID, caheID, cadrNIVO, cadrVOLGNR" end if end if else if Session("dmbdID") > " " AND Session("caheID") > " " then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, cadrRSOORT, cadrOMS, catalogus.cadrPICTURE, catalogus.cadrID FROM catalogus WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrRSOORT = 1 ORDER BY dmbdID, caheID, cadrNIVO, cadrVOLGNR" if Session("caheID") = 9999 then statement = "SELECT tonenJN, tonenHandelaarJN, caheID, catalogus.dmbdID, catalogus.artiID, cadrRSOORT, cadrOMS, catalogus.cadrPICTURE, cadrID, artikelen.toelichting FROM catalogus LEFT JOIN artikelen ON artikelen.artiID = catalogus.artiID WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND catalogus.dmbdID = " & Session("dmbdID") & " AND cadrOMS > ' ' AND cadrRSOORT = 1 ORDER BY catalogus.dmbdID, caheID, cadrNIVO, cadrVOLGNR" zoekinhelecatalogus = "JA" end if end if end if if Session("javatree") <> "" then if Session("cadrNIVO") > " " AND Session("cadrNIVO") >= 0 then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, cadrRSOORT, cadrOMS, cadrPICTURE, cadrID FROM catalogus WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND dmbdID = 201 AND caheID = 2 AND cadrRSOORT = 1 AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY dmbdID, caheID, cadrNIVO, cadrVOLGNR" end if end if if artiIDtoon > " " then statement = "SELECT tonenJN, tonenHandelaarJN, dmbdID, artiID, cadrRSOORT, cadrOMS, cadrPICTURE, cadrID FROM catalogus WHERE (tonenJN = 'JA' OR tonenHandelaarJN = 'JA') AND cadrRSOORT = 1 AND artiID = '" & artiIDtoon & "'" end if toonteller = 0 controlestatement = statement %><% Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) AND ((artiIDtoon = "" AND toonteller < maxregels) OR (artiIDtoon > " " AND toonteller < 1)) AND (timeID3 - timeID2) < maxaantalseconden if (Session("OH_gebruikerssoort") > " " AND oRs("tonenHandelaarJN") = "JA") OR oRs("tonenJN") = "JA" then if Session("zoekstring") > " " then if zoekinhelecatalogus = "JA" then Session("caheID") = oRs("caheID") ' ---------------------------------------------------------------------------------------------- ' ER WORDT BINNEN ALLE CATALOGI GEZOCHT, ALLEEN OP DE ARTIKELOMSCHRIJVING UIT DE CATALOGUSREGELS ' ---------------------------------------------------------------------------------------------- ' DIT WORDT GEBRUIKT OF ALLE ZOEKWOORDEN VOORKOMEN IN HET DOORZOCHTE ARTIKEL toonallemaal = "JA" tempinput = Session("zoekstring") allstates = split(tempinput," ") maxcounter = ubound(allstates) zoekitem = oRs("cadrOMS") & " " & oRs("toelichting") FOR counter= 0 TO maxcounter thisstate=allstates(counter) if thisstate > " " then tonenJN = "NEE" if zoekitem > " " AND lcase(zoekitem) <> Replace(lcase(zoekitem), thisstate, "") then tonenJN = "JA" if tonenJN <> "JA" then toonallemaal = "NEE" end if NEXT if toonallemaal = "JA" then toonteller = toonteller + 1 aantalverkocht = 0 statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if Session("WEBSITEID") = "EXCLUTONCRM" then statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, verkoopeenheid, omrekenfactorVERMENIGVULDIGEN, omrekenfactorDELEN, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if oRs("dmbdID") > 0 AND oRs("artiID") > " " then controlestatement = statement %><% Set oRs2 = oConn.Execute(statement) Do while (Not oRs2.eof) TOON_ARTIKEL TOON_STREEPJE oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing end if end if else ' ------------------------------------------------------------------------------------------ ' ER WORDT BINNEN 1 CATALOGUS GEZOCHT EN DAARBINNEN OP ALLE RELEVANTE VELDEN VAN HET ARTIKEL ' ------------------------------------------------------------------------------------------ statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if Session("WEBSITEID") = "EXCLUTONCRM" then statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, verkoopeenheid, omrekenfactorVERMENIGVULDIGEN, omrekenfactorDELEN, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if oRs("dmbdID") > 0 AND oRs("artiID") > " " then controlestatement = statement %><% Set oRs2 = oConn.Execute(statement) Do while (Not oRs2.eof) ' DIT WORDT GEBRUIKT OF ALLE ZOEKWOORDEN VOORKOMEN IN HET DOORZOCHTE ARTIKEL toonallemaal = "JA" tempinput = Session("zoekstring") allstates = split(tempinput," ") maxcounter = ubound(allstates) FOR counter= 0 TO maxcounter thisstate=allstates(counter) if thisstate > " " then tonenJN = "NEE" ' NIEUWE ZOEKMETHODE (SNELLER?) zoekitem = oRs2("artiID") & " " & oRs2("omschrijving") & " " & oRs2("toelichting") & " " & oRs2("HTMLcatalogus") & " " & oRs2("artikelspecificaties") if zoekitem > " " AND zoekitem <> Replace(zoekitem, thisstate, "") then tonenJN = "JA" if tonenJN <> "JA" then toonallemaal = "NEE" end if end if NEXT if toonallemaal = "JA" then toonteller = toonteller + 1 aantalverkocht = 0 statement3 = "SELECT SUM(aantal) AS aantalverkocht FROM orderregels WHERE artiID = '" & oRs2("artiID") & "' GROUP BY artiID" controlestatement = statement3 %><% Set oRs3 = oConn.Execute(statement3) Do while (Not oRs3.eof) aantalverkocht = aantalverkocht + oRs3("aantalverkocht") oRs3.MoveNext Loop oRs3.close Set oRs3 = Nothing TOON_ARTIKEL TOON_STREEPJE end if oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing end if end if else klaar = "NEE" ' OMSCHRIJVINGSREGEL BINNEN EEN GROEPSBLOKJE if klaar = "NEE" and oRs("cadrRSOORT") = 2 and bezigMetGroep = "JA" then inputveld = oRs("cadrOMS") %><% Response.write "
" & outputveld & "
 
" & chr(10) bezigMetGroep = "NEE" end if ' STREEPJE NA EEN GROEPBLOKJE OF ARTIKELBLOKJE if klaar = "NEE" and (oRs("cadrRSOORT") = 1 or oRs("cadrRSOORT") = 9) and laatsteregelsoort <> 0 then TOON_STREEPJE if tweekolommen = "JA" then Response.write "" Response.write "" end if if tweekolommen = "JA" AND (kolomteller + 0) = (maxaantalkolommen + 0) then Response.write "" kolomteller = 0 end if end if if toonteller = 0 then Response.write "
" Response.write "" end if laatsteregelsoort = oRs("cadrRSOORT") toonteller = toonteller + 1 ' OPENEN GROEPSBLOKJE (SUBNIVO) if klaar = "NEE" and oRs("cadrRSOORT") = 9 then if tweekolommen = "JA" then kolomteller = kolomteller + 1 if kolomteller = 1 then Response.write "" end if Response.write "
" Response.write "" end if if tweekolommen = "JA" and (kolomteller + 0) < (maxaantalkolommen + 0) then for i = (kolomteller + 1) to (maxaantalkolommen + 0) Response.write "" kolomteller = kolomteller + 1 next end if if tweekolommen = "JA" AND (kolomteller + 0) = (maxaantalkolommen + 0) then Response.write "" kolomteller = 0 end if if Session("zoekstring") = "" then Response.write "
" Response.write "" end if if Session("CAT_meerderekolommenHOOFDtoegestaanJN") = "JA" then SELECT CASE Session("WEBSITEID") CASE "INTERCLASSIC" %><% CASE "JEWEKA" %><% CASE ELSE %><% END SELECT else %><% end if bezigMetGroep = "JA" klaar = "JA" end if ' TEKSTREGEL if klaar = "NEE" and oRs("cadrRSOORT") = 2 then inputveld = oRs("cadrOMS") %><% Response.write "" klaar = "JA" end if ' ARTIKELREGEL if klaar = "NEE" and oRs("cadrRSOORT") = 1 then if tweekolommen = "JA" then kolomteller = kolomteller + 1 if kolomteller = 1 then Response.write "" end if Response.write "
" & outputveld & "
" Response.write "" bezigMetGroep = "NEE" if tweekolommen = "JA" then TOON_STREEPJE end if else if tweekolommen = "JA" then TOON_STREEPJE end if end if if tweekolommen = "JA" then Response.write "
" Response.write "" end if statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, optie1, PRIJSoptie1, optie2, PRIJSoptie2, optie3, PRIJSoptie3, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if Session("WEBSITEID") = "EXCLUTONCRM" then statement = "SELECT thumbnailverticaal, artikelspecificaties, HTMLcatalogus, voorraadregistratie, beschikbarevoorraad, beluisterenMAP, beluisterenpictureID, verkoopeenheid, omrekenfactorVERMENIGVULDIGEN, omrekenfactorDELEN, artikelen.afbeeldingGroot, artikelen.afbeeldingKlein, artikelen.omschrijving, artikelen.prijs, artikelen.toelichting, artikelen.artiID, bestelARTIKEL1, bestelLABEL1, bestelARTIKEL2, bestelLABEL2, bestelARTIKEL3, bestelLABEL3, bestelARTIKEL4, bestelLABEL4, videoHTML, labelBESTELBUTTON, uitvoeringen, kleuren FROM artikelen WHERE dmbdID = " & oRs("dmbdID") & " AND artiID = '" & oRs("artiID") & "' ORDER BY dmbdID, artiID" if oRs("dmbdID") > 0 AND oRs("artiID") > " " then controlestatement = statement %><% Set oRs2 = oConn.Execute(statement) Do while (Not oRs2.eof) aantalverkocht = 0 statement3 = "SELECT SUM(aantal) AS aantalverkocht FROM orderregels WHERE artiID = '" & oRs2("artiID") & "' GROUP BY artiID" controlestatement = statement3 %><% Set oRs3 = oConn.Execute(statement3) Do while (Not oRs3.eof) aantalverkocht = aantalverkocht + oRs3("aantalverkocht") oRs3.MoveNext Loop oRs3.close Set oRs3 = Nothing TOON_ARTIKEL oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing end if klaar = "JA" end if end if end if timeID3 = ((Hour(Now) * 60) * 60) + (Minute(Now) * 60) + Second(Now) oRs.MoveNext Loop oRs.close Set oRs = Nothing if toonteller >= 1 then if Session("zoekstring") > " " AND toonteller >= maxregels then Response.write "" end if ' AFSLUITEN VAN EEN GROEPSBLOKJE (SUBNIVO) (ALS DIT NOG NIET GEBEURD WAS) if bezigMetGroep = "JA" then ' Response.write "" Response.write "
Er zijn meer dan " & maxregels & " regels gevonden, verfijn uw zoekbegrip
 
" Response.write "		 
" Response.write "

" end if end if if volledigeweergaveJN = "JA" AND weergave = 9 then volledigeweergaveJN = "STOPPEN" end if if volledigeweergaveJN = "JA" AND weergave = 1 then weergave = 9 ' DIT IS DE TEKST DIE BOVEN DE HOOFD- EN SUBGROEPEN WORDT GETOOND tonenJN = "NEE" toontabel = "
" stoppen = "NOG BEGINNEN" statement2 = "SELECT cadrRSOORT, paginaID FROM catalogus WHERE (cadrRSOORT = 1 OR cadrRSOORT = 5 OR cadrRSOORT = 9) AND tonenJN = 'JA' AND dmbdID = " & Session("dmbdID") & " AND caheID = " & Session("caheID") & " AND cadrNIVO = " & Session("cadrNIVO") & " ORDER BY cadrVOLGNR" controlestatement = statement2 %><% Set oRs2 = oConn.Execute(statement2) Do while (Not oRs2.eof) AND stoppen <> "JA" if oRs2("cadrRSOORT") = 9 then stoppen = "JA" if oRs2("cadrRSOORT") = 1 then stoppen = "NEE" if oRs2("cadrRSOORT") = 5 AND stoppen = "NEE" then tonenJN = "JA" toontabel = toontabel & "" end if oRs2.MoveNext Loop oRs2.close Set oRs2 = Nothing toontabel = toontabel & "
" Session("nieuwspaginaIDTF") = oRs2("paginaID") legeregel = "NEE" %><% toontabel = toontabel & nieuwsitem toontabel = toontabel & "
" if tonenJN = "JA" then Response.write toontabel tonenJN = "NEE" end if end if if volledigeweergaveJN = "NEE" then volledigeweergaveJN = "STOPPEN" if subgroepenapartJN = "JA" then volledigeweergaveJN = "STOPPEN" WEND Response.write "
" if artiIDtoon > " " AND teruglink > " " then Response.write "

" if Request.Querystring("menuID") > 0 then if Session("top") = "JA" then inputveld2 = "Vorige pagina" else inputveld2 = "Vorige pagina" end if buttonpadding = 2 %><% Response.write "" end if inputveld2 = teruglink buttonpadding = 2 %><% Response.write "" Response.write "
" & outputveld2 & "" & outputveld2 & "
" Response.write "
" else Response.write " " end if if (timeID3 - timeID2) >= maxaantalseconden then Response.write "
De opdracht duurde te lang, probeer het later opnieuw!
" end if %> <% Function TOON_ARTIKEL ' DE ARTIKELOMSCHRIJVING WORDT IN DE CATALOGUS OPGENOMEN TBV VERSNELD ZOEKEN IN ALLE CATALOGI if a <> a AND oRs("cadrOMS") > " " then ' niets doen else if oRs2("omschrijving") > " " then statement3 = "UPDATE catalogus SET cadrOMS = '" & oRs("artiID") & " " & oRs2("omschrijving") & "' WHERE cadrID = " & oRs("cadrID") oConn.Execute statement3 end if end if SELECT CASE Session("WEBSITEID") CASE "PJL2" %><% CASE "PROMUSICPUBLISHING" if artiIDtoon > " " then %><% else %><% end if CASE "CDVDPRODUCTIONS" %><% CASE ELSE if a <> a AND Session("CAT_meerderekolommenSUBtoegestaanJN") = "JA" then %><% else %><% end if END SELECT ' --------------------------------------------------------------------------------------------------------------------------------------- ' CREEER HTML-PAGINA T.B.V. ZOEKMACHINES ' --------------------------------------------------------------------------------------------------------------------------------------- if Session("OPSTART_CATALOGUS") > " " AND Session("zoekstring") = "" AND artiIDtoon = "" then waarde = "\nl\PICTURES\" if Session("HOSTINGPROVIDER") = "SOHOSTED" then waarde = "\HTML\" inputveld = navigatiebalkHTML & "-" & oRs2("artiID") & "-" & oRs2("omschrijving") VERWIJDERTAGS navigatiebalkHTML2 = outputveld if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, " ", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "&", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, ")", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "(", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "/", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "’", "") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, """", "") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "'", "") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "--", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "--", "-") if navigatiebalkHTML2 > " " then navigatiebalkHTML2 = Replace(navigatiebalkHTML2, "--", "-") if left(navigatiebalkHTML2, 1) = "-" then navigatiebalkHTML2 = right(navigatiebalkHTML2, (len(navigatiebalkHTML2) - 1)) if left(navigatiebalkHTML2, 1) = "-" then navigatiebalkHTML2 = right(navigatiebalkHTML2, (len(navigatiebalkHTML2) - 1)) outputfile = Session("HOMEDIRECTORY") & waarde & navigatiebalkHTML2 & "-artinfo.html" Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject") Set objFSO2 = objFSO1.createtextfile(outputfile) ' Response.write outputfile & "
" ' CREEER DE HTML-HEADER statement3 = "SELECT documentbeschrijving FROM documentindeling WHERE documentsoort = 'ZOEKHTML' AND documentonderdeel = 'HEADER'" ' response.write statement & "
" controlestatement = statement3 %><% Set oRs3 = oConn.Execute(statement3) documentbeschrijving = oRs3("documentbeschrijving") oRs3.close Set oRs3 = Nothing vervanging = Session("SITE-NAAM") & " " & oRs2("artiID") & " " & oRs2("omschrijving") if Session("ZOEKWOORDEN_OMSCHRIJVING") > " " then vervanging = vervanging & " " & Session("ZOEKWOORDEN_OMSCHRIJVING") documentbeschrijving = Replace(documentbeschrijving, "", vervanging) documentbeschrijving = Replace(documentbeschrijving, "", vervanging) documentbeschrijving = Replace(documentbeschrijving, "", vervanging) objFSO2.WriteLine documentbeschrijving documentbeschrijving = "" documentbeschrijving = "

" & oRs2("artiID") & " - " & oRs2("omschrijving") & "

" & vbcrlf objFSO2.WriteLine documentbeschrijving documentbeschrijving = "" if oRs2("omschrijving") > " " then documentbeschrijving = documentbeschrijving & " " & oRs2("omschrijving") end if if oRs2("toelichting") > " " then documentbeschrijving = documentbeschrijving & " " & oRs2("toelichting") end if if oRs2("prijs") > " " then inputveld = oRs2("prijs") MASKERBEDRAGVELD documentbeschrijving = documentbeschrijving & " Prijs: EURO " & outputveld end if if documentbeschrijving > " " then documentbeschrijving = Replace(documentbeschrijving, "#HTML", "") documentbeschrijving = Replace(documentbeschrijving, "
", " ") documentbeschrijving = Replace(documentbeschrijving, "
", " ") inputveld = documentbeschrijving VERWIJDERTAGS documentbeschrijving = outputveld & "
" waarde = documentbeschrijving end if objFSO2.WriteLine documentbeschrijving documentbeschrijving = "" documentbeschrijving = "" & vbcrlf objFSO2.WriteLine documentbeschrijving ' CREEER DE FOOTER statement3 = "SELECT documentbeschrijving FROM documentindeling WHERE documentsoort = 'ZOEKHTML' AND documentonderdeel = 'FOOTER'" ' response.write statement & "
" controlestatement = statement3 %><% Set oRs3 = oConn.Execute(statement3) documentbeschrijving = oRs3("documentbeschrijving") oRs3.close Set oRs3 = Nothing vervanging = Session("OPSTART_CATALOGUS") & "&artiID=" & oRs2("artiID") if documentbeschrijving > " " then documentbeschrijving = Replace(documentbeschrijving, "", vervanging) objFSO2.WriteLine documentbeschrijving documentbeschrijving = "" objFSO2.close set objFSO2 = nothing set objFSO1 = nothing end if End Function Function TOON_STREEPJE ' TIJDELIJK UITGESCHAKELD ' Response.write "
" & chr(10) End Function %>