Microsoft VBScript compilation (0x800A0400)

joeyjoejnr · April 12th, 2007, 09:06 AM

hi,

I'm currently working on a web based tracking system for tracking exam questions. I can get my main page working but when i try to log in i get this error:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/ets/main.asp, line 4
Option Explicit

here is the code i am using:

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@ Language=VBScript %>
<% Option Explicit %>

<html xmlns="http://www.w3.org/1999/xhtml">
<%
    Call OpenDatabase()

    Dim userID
    Dim logType
    Dim rsstage
    Dim rsUser
    Dim userName
    Dim sdate
    Dim stage
    Dim stageDesc
    Dim stageName
    stage=0

    '&&&&&&&&&&&&&&& Timed-out redirect &&&&&&&&&&&&&&&&
    if Session("UserID")="" Then
    Response.Redirect("logged_out.asp")
    End If
    '&&&&&&&&&&&&&&& Timed-out redirect &&&&&&&&&&&&&&&&

    userID = Session("UserID")

    Set rsUser = Server.CreateObject("ADODB.Recordset")
    rsUser.Open "SELECT * FROM Login WHERE TeamId=" &userID& ";", cnnProject

    userName = rsUser("FirstName")&" "&rsUser("LastName")
    logType = rsUser("LogType")

    rsUser.Close
    set rsUser = Nothing

    Set rsstage = Server.CreateObject("ADODB.Recordset")
    rsstage.Open "SELECT * FROM Stage;", cnnProject

    Do While Not rsstage.EOF

    sdate = rsstage("stageDate")

    If sdate < Date Then
    stage=stage + 1
    stageDesc = rsstage("stageDesc")
    stageName = rsstage("stagename")
    End If
    'stage=stage+1
    rsstage.MoveNext
    Loop

%>

AkashH · May 5th, 2007, 05:20 AM

Hi,

The very first line of the code should be...
<%@ Language=VBScript %>
<% Option Explicit %>

So change the code in your file to...

<%@ Language=VBScript %>
<% Option Explicit %>
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

...... Rest of the code remains same

Ragards,
Akash - The Sky

shawne · May 9th, 2007, 03:22 AM

I HAVE A PROBLEM WITH SOME OF THE ERROR I GOT -- Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
----->

but when i click the back button i can access the inbox just like that.. i'm using the webmail ASP from http://www.iisworks.com/webmail.. i try to post my comment in there but i think they dont have a time to reply..

Please help me regarding this matter.. and reply to me A.S.A.P!!

and again i'm using NTFS volume at my windows XP .. but when i try to get to the Windows Explorer i got nothing like Security TAB in my right click windows in Explorer can you give me a clue about it what am i supposed to do .. please help me!!

Jamban Style!!