<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' ------------------------------------------------------------------------------------------------------------------------------------ ' 25-03-2005 Nieuwe databasetool ' ------------------------------------------------------------------------------------------------------------------------------------ Dim tonenJN Dim zoekitem dim logo dim preview dim kolominfo(100) dim kolom, groepsomschrijving, volgnummer dim dropdown dim legeregel dim width dim hyperlink dim gekozenkolom, gekozenvolgnummer dim aantallinkgroepen dim reset Dim Item if Request.Querystring("reset") = "JA" then reset = "reset=JA&" For Each Item In Session.Contents Session(Item) = "" Next end if %> <% legeregel = "JA" ' ----------------------------------------------------------------------------------- ' MOGELIJKE VARIABELEN MEE TE STUREN (QUERYSTRING): ' ----------------------------------------------------------------------------------- ' administratieID: niet verplicht, indien niet aangeleverd, dan wordt de vorige waarde vastgehouden if Request.querystring("linkpaginaID") <> "" then Session("linkpaginaID") = Request.Querystring("linkpaginaID") + 0 dropdown = "NEE" if Request.Querystring("dropdown") = "JA" then dropdown = "JA" if Request.Querystring("dropdown") = "HYPERLINKS" then dropdown = "HYPERLINKS" if Request.querystring("kolom") <> "" then gekozenkolom = Request.Querystring("kolom") + 0 if Request.querystring("volgnummer") <> "" then gekozenvolgnummer = Request.Querystring("volgnummer") + 0 if Request.Querystring("preview") = "JA" then preview = "JA" ' ----------------------------------------------------------------------------------- if Session("linkpaginaID") = "" OR Session("linkpaginaID") = 0 then %> <% Response.end end if %> <% 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 Response.write Session("SITE-NAAM") %> <% if Session("LINKPAGINA_LOSSTAAND") = "JA" OR Session("#STIJLSHEET") = "" then Session("#STIJLSHEET") = "stijlsheets/algemeen.css" Session("LINKPAGINA_LOSSTAAND") = "JA" Session("#MENU-TITEL") = "LINK PAGINA" Session("#ZOEKOPTIE") = "NEE" Session("menubeheerniveau") = 9 Session("actueleautorisatieniveau") = 1 end if %> "> <% if preview = "JA" then Response.write "" Response.write "
" Response.write "" Response.write "

" end if if Session("menubeheerniveau") <= Session("actueleautorisatieniveau") AND preview <> "JA" then naarmenu = "" if Session("actuelehoofdkeuze") > "" then naarmenu = Session("actuelehoofdkeuze") if Session("actuelesubkeuze") > "" then naarmenu = Session("actuelesubkeuze") Response.write "" Response.write "
" Response.write "
" Response.write "
" end if if Session("WEBSITEID") = "EXCLUTON" then Response.write "" Response.write "
 " end if if Session("#MENU-TITEL") > " " AND dropdown <> "NEE" then Session("#MENU-TITEL") = "
" & Session("#MENU-TITEL") & "
" %> <% DATABASE_OPEN kolom = 0 volgnummer = 0 groepsomschrijving = "" aantallinkgroepen = 0 if Session("linkpaginaID") > 0 then statement = "SELECT count(volgnummer) AS aantalgroepen FROM linkgroepen WHERE linkgroepen.linkpaginaID = " & Session("linkpaginaID") ' Response.write statement & "
" Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) aantallinkgroepen = oRs("aantalgroepen") + 0 oRs.MoveNext Loop oRs.close Set oRs = Nothing end if statement = "SELECT linkgroepen.kolomnummer, linkgroepen.volgnummer, linkgroepen.omschrijving, links.linkgroepID, links.volgnummer, links.omschrijving, links.hyperlink FROM links, linkgroepen WHERE links.linkpaginaID = " & Session("linkpaginaID") & " AND links.linkgroepID = linkgroepen.linkgroepID ORDER BY linkgroepen.kolomnummer, linkgroepen.volgnummer, links.volgnummer" ' Response.write statement & "
" if a = a AND Session("linkpaginaID") > 0 then Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) hyperlink = oRs("hyperlink") if dropdown = "JA" then if hyperlink > " " then hyperlink = Replace(hyperlink,"&","") if hyperlink > " " then hyperlink = Replace(hyperlink,"?","") if kolom > 0 AND (kolom <> oRs("kolomnummer") OR oRs("linkgroepen.volgnummer") <> volgnummer) then kolominfo(kolom) = kolominfo(kolom) & " 
" end if if kolom <> oRs("kolomnummer") then volgnummer = 0 kolom = oRs("kolomnummer") if oRs("linkgroepen.volgnummer") <> volgnummer then if volgnummer > 0 then kolominfo(kolom) = kolominfo(kolom) & "
" kolominfo(kolom) = kolominfo(kolom) & "" & oRs("linkgroepen.omschrijving") & ":
" kolominfo(kolom) = kolominfo(kolom) & " " Response.write "
" for kolom = 1 to 100 if a = a AND kolominfo(kolom) > "" then Response.write "" end if next Response.write "" Response.write "
" Response.write " " Response.write " 0 then Response.write " width='" & width & "%'" Response.write ">" Response.write kolominfo(kolom) Response.write "" Response.write " " Response.write "
" if Session("WEBSITEID") = "EXCLUTON" then Response.write "
 
 
" end if Session("gegevens_lezen") = "JA" Session("tabje") = "tab1" %> <% if Request.Querystring("reset") = "JA" then ' OM ALLE SESSIEVARIABELEN UIT TE SCHAKELEN Session.Abandon end if %>