I keep getting this error and I can't figure out the problem:
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/SLU415FL03_amj9157/CaseStudy/amj9157Login.asp, line 35
Code:
<BASEFONT FACE="Comic Sans MS" COLOR="DarkBlue">
<HTML>
<HEAD>
<TITLE>Wrox Classifieds - Login</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFF80">
<CENTER><H1>Wrox Classifieds<BR>Login</H1></CENTER>
<P>
<%
If Request("SecondTry") = "True" Then ' User's second attempt at logging in
If Request("WrongPW") = "True" Then
Response.Write "Invalid Password. Please try again: " & _
"if you get it wrong we'll ask you to re-register.<BR>"
Else
Response.Write "E-Mail Address not found. Please try again: " & _
"if you get it wrong we'll ask you to re-register.<BR>"
End If
End If
Response.Write "Please enter your e-mail address and password " & _
"to login to the system."
%>
<FORM ACTION="amj9157CheckLogin.asp<% If Request("SecondTry")="True" Then
Response.Write "?SecondTry=True"
End If %>" METHOD="POST" NAME="frmLogin">
<%
If Request.Cookies("LoginSaved").HasKeys Then
Dim email, password
email = Request.Cookies("LoginSaved")("email")
password = Request.Cookies("LoginSaved")("password")
document.frmLogin.email.value = email
document.frmLogin.Password.value = password
Call frmLogin.submit()
End If
%>
<TABLE BORDER=0>
<TR>
<TD>E-Mail Address:</TD>
<TD><INPUT TYPE="Text" NAME="email"
<% If Request("SecondTry") = "True" then %>
VALUE="<%= Session("EMailAddress") %>"
<% End If %>
SIZE="40"></TD>
</TR>
<TR>
<TD>Password:</TD>
<TD><INPUT TYPE="Password" NAME="Password" SIZE="40"></TD>
</TR>
<TR>
<TD></TD>
<TD align=center><INPUT TYPE="Submit" VALUE="Login">
<INPUT TYPE="RESET"></TD>
</TR>
</TABLE>
</FORM>
<TABLE BORDER=0 WIDTH=100%>
<TR ALIGN=CENTER>
<TD WIDTH=33%><A HREF="amj9157BrowseListings.asp">Browse the listings</A></TD>
<TD WIDTH=33%>Login</TD>
<TD WIDTH=33%><A HREF="amj9157Register.asp">I'm a new user</A></TD>
</TR>
</TABLE>
</BODY>
</HTML>