%
Response.Expires = -1 'asp altijd opnieuw van de server laten komen
Response.Buffer = true 'asp in een keer laten zien
' Response.write Session("menubeheerniveau") & " " & Session("actueleautorisatieniveau") & " "
' ------------------------------------------------------------------------------------------------------------------------------------
' 17-03-2005 Wijzigingen i.v.m. verkeerd geheugengebruik
' 25-03-2005 Nieuwe databasetool
' ------------------------------------------------------------------------------------------------------------------------------------
%>
<%
Dim zoekitem
Dim aantalperscherm, opbouwnavigatieJN, paginateller, aantalpaginas, startrecord, navigatiebalkje, vorigepagina, volgendepagina
dim allstates, tempinput, maxcounter, thisstate, counter
%>
<%
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") %>
">
<%
aantalperscherm = 10
aantalpaginas = 1
opbouwnavigatieJN = "NEE"
startrecord = 0
paginateller = 0
Session("huidigenavigatiepagina") = 1
if Request.Querystring("gastenboekID") > " " then
Session("gastenboekNUMMER") = Request.Querystring("gastenboekID")
opbouwnavigatieJN = "JA"
Session("paginanavigatie") = ""
end if
if Request.Querystring("startrecord") > " " then
startrecord = Request.Querystring("startrecord")
Session("huidigenavigatiepagina") = Request.Querystring("huidigepagina") + 0
end if
if startrecord = 0 then startrecord = 99999999
if Session("gastenboekNUMMER") = "" OR Session("gastenboekNUMMER") = 0 then
Session("gastenboekNUMMER") = 1
opbouwnavigatieJN = "JA"
Session("paginanavigatie") = ""
Session("huidigenavigatiepagina") = 1
end if
if Session("menubeheerniveau") <= Session("actueleautorisatieniveau") then
Session("BEHEER_GASTENBOEK") = "JA"
else
Session("BEHEER_GASTENBOEK") = "NEE"
end if
%>
<%
if Session("TAALCODE") = "NL" then
Response.write " "
end if
if Session("TAALCODE") = "ENG" then
Response.write " "
end if
%>
<%
' Display Header
if Session("TAALCODE") = "NL" then
Response.write "OVERZICHT GASTENBOEK "
end if
if Session("TAALCODE") = "ENG" then
Response.write "GUESTBOOK "
end if
%>
Reacties
<%
If Session("BEHEER_GASTENBOEK") = "JA" then
Response.write "
"
Response.write "
"
end if
%>
>
<%
DATABASE_OPEN
teller = 0
paginateller = 0
if Session("BEHEER_GASTENBOEK") = "JA" then
statement = "SELECT gastenboek.datum, gastenboek.naam, gastenboek.omschrijving, gastenboek.gastenboekID, gastenboek.emailadres, gastenboek.tijd, gastenboek.goedgekeurd FROM gastenboek WHERE gastenboekID <= " & startrecord & " AND gastenboekNUMMER = " & Session("gastenboekNUMMER") & " ORDER BY gastenboekID DESC"
else
statement = "SELECT gastenboek.datum, gastenboek.naam, gastenboek.omschrijving, gastenboek.gastenboekID, gastenboek.emailadres, gastenboek.tijd, gastenboek.goedgekeurd FROM gastenboek WHERE gastenboekID <= " & startrecord & " AND gastenboekNUMMER = " & Session("gastenboekNUMMER") & " AND goedgekeurd = TRUE ORDER BY gastenboekID DESC"
end if
controlestatement = statement
%><%
Set oRs = oConn.Execute(statement)
Do while (Not oRs.eof)
tonenJN = "JA"
' =========================================================================================================
paginateller = paginateller + 1
if opbouwnavigatieJN = "JA" AND paginateller > aantalperscherm then
tonenJN = "NEE"
if paginateller > aantalperscherm then
paginateller = 1
aantalpaginas = aantalpaginas + 1
if Session("paginanavigatie") >= " " then
Session("paginanavigatie") = Session("paginanavigatie") & " "
else
Session("paginanavigatie") = "99999999 "
end if
Session("paginanavigatie") = Session("paginanavigatie") & oRs("gastenboekID")
end if
end if
if opbouwnavigatieJN = "JA" AND aantalpaginas > 1 then
tonenJN = "NEE"
end if
if paginateller > aantalperscherm then tonenJN = "NEE"
' =========================================================================================================
if tonenJN = "JA" then
teller = teller + 1
if Session("BEHEER_GASTENBOEK") = "JA" then
Response.write "
"
else
Response.write "
"
end if
if Session("BEHEER_GASTENBOEK") = "JA" then Response.write ""
Response.write "