Hello,
Would someone mind looking over this code and telling me what I'm doing wrong?
I am getting the error:
Microsoft VBScript compilation error '800a03f6'
Expected 'End'
/draft/login.asp, line 127 (line 127 is the last line of code below)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' ************************************************** ******************
' Check for enabled cookies by creating a test session variable and
' recalling the login page. If the session variable retains its value
' then your test is successful
' ************************************************** *****************
If Session("Access_Status") = "" _
AND Request.QueryString("test") <> 1 then
Session("Access_Status") = "Test"
Response.Redirect "login.asp?test=1"
ElseIf Session("Access_Status") = "" _
AND Request.QueryString("test") = 1 then
Response.Redirect "cookie_error.asp"
End If %>
<%
' ************************************************** ****************
' Verify User Name and Password. If correct set Session variable =
' to check against on secure pages. Redirect User to the secured
' ************************************************** ****************
If LCase(Trim(Request("UserName"))) = "yyyuser" _
AND lcase(trim(Request("Password"))) = "yyypass" then
Session("Access_Status") = "Granted"
Response.Redirect "http://www.yyy.biz/draft/info.asp"
ElseIf LCase(Trim(Request("UserName"))) = "yyysetup" _
AND LCase(Trim(Request("Password"))) = "yyypass" then
Session("Special_Status") = "SpecialSet"
Response.Redirect "http://www.yyy.biz/draft/specificsetup.asp"
Else If LCase(Trim(Request("UserName"))) = "xxxuser" _
AND lcase(trim(Request("Password"))) = "xxxpass" then
Session("Access_Status") = "Granted"
Response.Redirect "http://www.xxx.biz/draft/info.asp"
ElseIf LCase(Trim(Request("UserName"))) = "xxxsetup" _
AND lcase(trim(Request("Password"))) = "xxxpass" then
Session("Access_Status") = "Special"
Response.Redirect "http://www.xxx.biz/draft/specific.asp"
' ************************************************** *****************
' If not correct User Name and Password and user attempted to enter
' something, change status to Denied. Use this value to know when
' to display an error message.
' ************************************************** *****************
ElseIf Request("UserName") <> "" _
OR Request("Password") <> "" then
Session("Access_Status") = "Denied"
' ************************************************** **************
' Must be an initial view or the User entered nothing. Make sure the
' Access_Status = "" so the page will display without an error message
' ************************************************** ****************
Else
Session("Access_Status") = "Test"
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body >
<%
' ************************************************** ****************
' Display error message when an incorrect User Name or Password is
' ************************************************** ****************
If Session("Access_Status") = "Denied" then
response.write("<p class=""accessdenied"">The Username and#47;or Password you entered were incorrect. Please try again.</p>")
End If %>
Thank you for any help you can offer!
Microsoft VBScript compilation error '800a03f6'
