%
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 "
"
Response.write " "
Response.write "
"
for kolom = 1 to 100
if a = a AND kolominfo(kolom) > "" then
Response.write "
"
if Session("WEBSITEID") = "EXCLUTON" then
Response.write "
"
end if
Session("gegevens_lezen") = "JA"
Session("tabje") = "tab1"
if dropdown <> "JA" AND Session("WEBSITEID") = "JEWEKA" then
response.write ""
end if
%>
<%
if Request.Querystring("reset") = "JA" then
' OM ALLE SESSIEVARIABELEN UIT TE SCHAKELEN
Session.Abandon
end if
%>