Microsoft VBScript compilation (0x800A0400)
I am a Network Admin type, and not a WEB developer, so I need all the help I can get. I have some code that keeps giving me the following Error: Can anyone help. THANKS IN ADVANCE FOR ANY HELP!!!!:)
Microsoft VBScript compilation (0x800A0400)
Expected statement
/test/dbcontrol.asp, line 25
<b>Add a New Record</b>
Here is the code:
<% @Language=VBScript %>
<%
Option Explicit
DIM ColunmNameIntable(5)
ColunmNameIntable(0)="ID"
ColunmNameIntable(1)="EDate"
ColunmNameIntable(2)="HoursWorked"
ColunmNameIntable(3)="OfficeList"
ColunmNameIntable(4)="WorkDescription"
ColunmNameIntable(5)="EmpInitials"
'When displaying data we will use this values
DIM DataName(5)
DataName(0)="ID"
DataName(1)="Date"
DataName(2)="Hours Worked"
DataName(3)="Down Stream Office"
DataName(4)="Work Description"
DataName(5)="Employee"
<b>Add a New Record</b>
<form action=dbaddrecord.asp method=post>
<input type=hidden name=action value=add><br>
<% =DataName(1) %>
:
<input type=text name="<% =ColunmNameIntable(1) %>">
<br>
<% =DataName(2) %><input type=text name="<% =ColunmNameIntable(2) %>"><br>
<% =DataName(3) %><input type=text name="<% =ColunmNameIntable(3) %>"><br>
<% =DataName(4) %><input type=text name="<% =ColunmNameIntable(4) %>"><br>
<% =DataName(5) %><input type=text name="<% =ColunmNameIntable(5) %>"><br>
<input type=submit value=submit>
%>
<%
DIM DB
DIM RS
DIM data1st
if request.querystring="1" then
DIM PathToDatabase ' The location of our database within our server
PathToDatabase="c:\data\test\downstreamwork.mdb"
DIM NameOfTableInDB ' The name of the table in our Access database. In our case this name is "Table1"
NameOfTableInDB="tblmain"
|
