<% Response.Buffer = True %>
<% STATUS = Request.FORM("STATUS") %>
<% If STATUS = "CHECKEM" Then
set data = server.createobject("ADODB.Recordset")
data.activeconnection = strCon
data.source = "SELECT * FROM instellingen WHERE gebruikersnaam = '" & replace(request.form("gebruiker"),"'","''") & "'"
data.open
if data.eof then
text = "Fout bij het inloggen!
"
Session("ACCESS") = "NO"
data.close
set data = nothing
else
if request.form("pass") = data("wachtwoord") then
Session("ACCESS") = "YES"
data.close
set data = nothing
else
text = "Fout bij het inloggen!
"
Session("ACCESS") = "NO"
data.close
set data = nothing
end if
end if
%>
<% End If %>
<% If Session("ACCESS") <> "YES" Then %>
Inloggen Admin
Madness.nl Gastenboek 1.0
<%
' ************* Het verwijderen van de onderstaande informatie is niet toegestaan!!!**********************
response.write "