<% Response.Expires = -1 'asp altijd opnieuw van de server laten komen Response.Buffer = true 'asp in een keer laten zien ' ------------------------------------------------------------------------------------------------------------------------------------ ' 03-05-2007 Nieuwbouw ' ------------------------------------------------------------------------------------------------------------------------------------ Session("BEZIGMETONDERHOUD") = "NEE" if Request.Querystring("TERUGVORIGEPAGINA") > " " then Session("TERUGVORIGEPAGINA2") = Request.Querystring("TERUGVORIGEPAGINA") end if %> <% Dim zoekitem if Request.Querystring("nieuwsID") > 0 then Session("nieuwsID") = Request.Querystring("nieuwsID") if Session("nieuwsID") = "" then Session("nieuwsID") = 0 %> "> <% DATABASE_OPEN statement = "SELECT onderwerp FROM nieuws WHERE nieuwsID = " & Session("nieuwsID") Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) Response.write "

" inputveld = oRs("onderwerp") TEKSTNAARHTML Response.write outputveld & "  " Response.write "

" oRs.MoveNext Loop oRs.close Set oRs = Nothing %>

<% if Session("TERUGVORIGEPAGINA2") > " " then Session("TERUGVORIGEPAGINA") = Session("TERUGVORIGEPAGINA2") if Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "   " else if Session("TERUGVORIGEPAGINA") > " " then Response.write "   " end if ' Response.write " " & Session("TERUGVORIGEPAGINA") %>

<% If Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "" Response.write "" end if %> <% teller=0 if Session("BEHEER_LEZERSREACTIES") = "JA" then statement = "SELECT datum, naam, reactie, reactieID, emailadres, tijd, goedgekeurdJN FROM lezersreacties WHERE nieuwsID = " & Session("nieuwsID") & " ORDER BY reactieID DESC" else statement = "SELECT datum, naam, reactie, reactieID, emailadres, tijd, goedgekeurdJN FROM lezersreacties WHERE nieuwsID = " & Session("nieuwsID") & " AND goedgekeurdJN = 'JA' ORDER BY reactieID DESC" end if Set oRs = oConn.Execute(statement) Do while (Not oRs.eof) tonenJN = "JA" if tonenJN = "JA" then teller = teller + 1 if Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "" else Response.write "" end if if Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "" Response.write "" If Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "" Response.write "" end if if Session("BEHEER_LEZERSREACTIES") = "JA" then Response.write "" Response.write "" If Session("BEHEER_LEZERSREACTIES") = "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_LEZERSREACTIES") = "JA" and oRs("goedgekeurdJN") = "JA" then Response.write "(*) " Response.write oRs("naam") & " " inputveld = oRs("reactie") TEKSTNAARHTML Response.write "" & outputveld & "" Response.write "	" Response.write "" Response.write "	" Response.write "" Response.write "

" %> <% Session("gegevens_lezen") = "JA" Session("tabje") = "tab1" %>