<% 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 %> <% 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 "" If Session("BEHEER_GASTENBOEK") = "JA" then Response.write "" Response.write "" end if if Session("BEHEER_GASTENBOEK") = "JA" then Response.write "" Response.write "" If Session("BEHEER_GASTENBOEK") = "JA" then Response.write "" else Response.write "" end if end if oRs.MoveNext Loop oRs.close Set oRs = Nothing DATABASE_CLOSE Response.write "
Reacties
>
" Response.write "" Response.write "" Response.write "
" Response.write "" & oRs("datum") & " - " & oRs("tijd") & " - " if Session("BEHEER_GASTENBOEK") = "JA" and oRs("goedgekeurd") = TRUE then Response.write "(*) " Response.write oRs("naam") & "
" inputveld = oRs("omschrijving") %><% inputveld = outputveld & "" %><% Response.write "" & outputveld & "" Response.write "
" Response.write "" Response.write "" Response.write "" Response.write "


" if opbouwnavigatieJN = "JA" then Session("aantalnavigatiepaginas") = aantalpaginas + 0 end if if Session("aantalnavigatiepaginas") > 1 then tempinput = Session("paginanavigatie") allstates = split(tempinput, " ") maxcounter = ubound(allstates) FOR counter= 0 TO maxcounter thisstate=allstates(counter) if Session("huidigenavigatiepagina") > 1 AND (counter + 1) < Session("huidigenavigatiepagina") then vorigepagina = "<< " if Session("huidigenavigatiepagina") < Session("aantalnavigatiepaginas") AND (counter + 1) > Session("huidigenavigatiepagina") AND volgendepagina = "" then volgendepagina = " >>" if counter > 0 then navigatiebalkje = navigatiebalkje & " - " if (counter + 1) = (Session("huidigenavigatiepagina") + 0) then navigatiebalkje = navigatiebalkje & " [ " & (counter + 1) & " ] " else navigatiebalkje = navigatiebalkje & "" & (counter + 1) & "" end if NEXT Response.write vorigepagina & navigatiebalkje & volgendepagina end if Session("gegevens_lezen") = "JA" Session("tabje") = "tab1" if Session("_meldingBEDANKT") > " " then messagetekst = Session("_meldingBEDANKT") response.write "" Session("_meldingBEDANKT") = "" end if %>