<% 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 = "Inlogfout"
Session("ACCESS") = "NO"
data.close
set data = nothing
else
if request.form("pass") = data("wachtwoord") then
Session("ACCESS") = "oifvnodfgnpaw8nvpa8yv"
data.close
set data = nothing
else
text = "Inlogfout"
Session("ACCESS") = "NO"
data.close
set data = nothing
end if
end if
%>
<% End If %>
<% If Session("ACCESS") <> "oifvnodfgnpaw8nvpa8yv" Then %>
Admin