%
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'>
<%
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 & "
"
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 & "
"
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 & "
"
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 "
" & 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 "
"
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 "
" & outputveld & "
"
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 "
"
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 "
Er zijn meer dan " & maxregels & " regels gevonden, verfijn uw zoekbegrip
"
end if
' AFSLUITEN VAN EEN GROEPSBLOKJE (SUBNIVO) (ALS DIT NOG NIET GEBEURD WAS)
if bezigMetGroep = "JA" then
' Response.write "
"
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
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
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 & "
"
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 "
" & outputveld2 & "
"
end if
inputveld2 = teruglink
buttonpadding = 2
%><%
Response.write "
" & outputveld2 & "
"
Response.write "
"
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 = "