<%@ Language=VBScript %>
<%
if isempty(Request.Form("OK")) then
Session("NumAttempts") = 1
TheMessage = "Please log in below:"
else
set conn = server.createobject ("adodb.connection")
conn.open "ASPBook", "sa", "yourpassword"
set RSLogin = conn.Execute("select LoginID, Name from PSLogins where " _
& "EmailAddress = '" & Request.Form("EmailAddress") & "' and " _
& "Password = '" & Request.Form("Password") & "'")
if RSLogin.EOF then
Session("NumAttempts") = Session("NumAttempts") + 1
if Application("NumAttempts") = 0 then
TheMessage = "Log In not found, please try again:"
elseif Session("NumAttempts") > Application("NumAttempts") then
TheMessage = "Log In not found. No more attempts allowed."
else
TheMessage = "Log In not found, please try again:"
end if
else
Session("ID") = RSLogin("LoginID")
Session("Name") = RSLogin("Name")
Response.Redirect "./html/home.asp"
end if
end if
%>
Aanmelden
