Microsoft VBScript compilation (0x800A03F6)

ahmedonline5 · March 11th, 2007, 02:04 AM

Hey...asps experts out there...i'm a beginner in asp...and stuck in one error which i dont know how to solve, i've tried different ways but nothing seems to work, the code shows ...

Microsoft VBScript compilation (0x800A03F6)
Expected 'End'

and my code is...

Response.CacheControl="no-cache"
    Response.AddHeader "Pragma", "no-cache"
    Response.Expires=-1

    Dim uid
    Dim pwd

    uid=Request.Form("luser")

    if uid <> "" then
        pwd=Request.Form("lpass")

    Dim adoCon
    Dim rs
    Dim strSQL

    Ser adoCon=Server.CreateObject("ADODB.Connection")
    adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("userdb.mdb")
    //adoCon.Open "DSN=userdb"

    Set rs=Server.CreateObject("ADODB.Recordset")
    strSQL="SELECT * FROM userinfo WHERE username='uid'"
    rs.CursorType = 2
    rs.LockType = 3
    rs.Open strSQL, adoCon

If Not rs.EOF Then
        If strcmp (pwd,rs.Fields("pass").value,1) = 0 Then
            Session("luser")=uid
            Response.Redirect "Home.htm"
            Response.End
        Else
            Response.Redirect "Wrong.htm"
            Response.End
        End If
Else
    Response.Redirect "reg.htm"
    Response.End
End If

saurabhj · March 12th, 2007, 07:33 AM

Use this:

Response.CacheControl="no-cache"
    Response.AddHeader "Pragma", "no-cache"
    Response.Expires=-1

    Dim uid
    Dim pwd

    uid=Request.Form("luser")

    if uid <> "" then
        pwd=Request.Form("lpass")
    end if

    Dim adoCon
    Dim rs
    Dim strSQL

    Ser adoCon=Server.CreateObject("ADODB.Connection")
    adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("userdb.mdb")
    //adoCon.Open "DSN=userdb"

    Set rs=Server.CreateObject("ADODB.Recordset")
    strSQL="SELECT * FROM userinfo WHERE username='uid'"
    rs.CursorType = 2
    rs.LockType = 3
    rs.Open strSQL, adoCon

If Not rs.EOF Then
        If strcmp (pwd,rs.Fields("pass").value,1) = 0 Then
            Session("luser")=uid
            Response.Redirect "Home.htm"
            Response.End
        Else
            Response.Redirect "Wrong.htm"
            Response.End
        End If
Else
    Response.Redirect "reg.htm"
    Response.End
End If

-Saurabh