<%
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 oRt
bedragveld = ""
duizendtallen = "NEE"
dim selectedJN
Session("idnummer") = 0
if Request.Form("IDnummer") <> "" then
if Session("BEHEER_GASTENBOEK") = "JA" then
Session("idnummer") = Request.Form("IDnummer")
end if
else
if Session("BEHEER_GASTENBOEK") = "JA" then
Session("idnummer") = Request.Querystring("IDnummer")
end if
end if
if Request.Querystring("nieuw") = "JA" then
Session("IDnummer") = 0
end if
%>
Gastenboek
">
<%
Response.write "" & Chr(10)
%>
<%
if Session("gegevens_lezen") = "JA" then
teller = 0
if Session("idnummer") <> 0 then
DATABASE_OPEN
statement = "SELECT gastenboek.naam, gastenboek.emailadres, gastenboek.omschrijving, gastenboek.datum, gastenboek.tijd, gastenboek.goedgekeurd FROM gastenboek WHERE gastenboekID = " & Session("IDnummer")
Set oRs = oConn.Execute(statement)
Do while (Not oRs.eof)
inputveld = oRs("naam")
VERWIJDERQUOTES
Session("naam") = outputveld
inputveld = oRs("emailadres")
VERWIJDERQUOTES
Session("emailadres") = outputveld
inputveld = oRs("omschrijving")
VERWIJDERQUOTES
Session("omschrijving") = outputveld
inputveld = oRs("datum")
VERWIJDERQUOTES
Session("datum") = outputveld
inputveld = oRs("tijd")
VERWIJDERQUOTES
Session("tijd") = outputveld
Session("goedgekeurd") = oRs("goedgekeurd")
teller = teller + 1
oRs.MoveNext
Loop
oRs.close
Set oRs = Nothing
DATABASE_CLOSE
end if
if teller = 0 and Session("gegevens_lezen") = "JA" then
' HELAAS NIET GEVONDEN, WE GAAN EEN NIEUW ITEM AANMAKEN
Session("naam") = ""
Session("emailadres") = ""
Session("omschrijving") = ""
datum = date()
Session("datum") = day(datum) & "-" & month(datum) & "-" & year(datum)
Session("tijd") = TIME
Session("goedgekeurd") = FALSE
if Session("WEBSITEID") = "DESIGNONWHEELS" then Session("goedgekeurd") = TRUE
' Reading the Cookie
if Session("naam") = "" and Session("emailadres") = "" then
Session("naam") = Request.Cookies("mail_naam")
Session("emailadres") = Request.Cookies("mail_email")
End If
Session("nieuw_item") = "JA"
else
Session("nieuw_item") = "NEE"
end if
end if
if Session("nieuw_item") = "JA" then
Response.write "** NIEUW ITEM IN HET GASTENBOEK **"
else
Response.write "ID-nummer: " & Session("IDnummer") & ""
end if
Response.write ""
%>