|
<%
If request.form("BtnPress") = "Pressed" Then
dim SQLVerifyEmail2
SQLVerifyEmail2 = "SELECT * FROM Forces_Registrants WHERE UserName= '"&killchars(request.form("lusername"))&"' AND Deleted = 'no' "
set RSVerifyEmail2 = MyConn.execute(SQLVerifyEmail2)
If RSVerifyEmail2.EOF Then
response.write ("** ERROR: Incorrect login details **")
Else
dim SQLVerifyPWord2
SQLVerifyPWord2 = "SELECT * FROM Forces_Registrants WHERE UserName= '"&killchars(request.form("lusername"))&"' and Password = '"&killchars(request.form("lpword"))&"' AND Deleted = 'no' "
set RSVerifyPWord2 = MyConn.execute(SQLVerifyPWord2)
If RSVerifyPWord2.EOF Then
response.write ("** ERROR: Incorrect login details **")
else
session("AccountID") = RSVerifyPWord2("AccountID")
session("AdminType") = RSVerifyPWord2("Type")
if request.form("urlcat") = "baby" then
url1 = "babysitting-details.asp?id="&request.form("urlid")
elseif request.form("urlcat") = "gown" then
url1 = "gown-details.asp?id="&request.form("urlid")
elseif request.form("urlcat") = "item" then
url1 = "buying-details.asp?id="&request.form("urlid")
elseif request.form("urlcat") = "want" then
url1 = "wanted-details.asp?id="&request.form("urlid")
else
url1 = "myaccount.asp"
end if
response.redirect url1
End If
End if
End if
%>
|
FORGOTTEN PASSWORD |