Hi I am fairly new to asp - I have create two asp pages one that shows data for amendment and the other to update the database - I am getting all sorts of errors but at the moment it is "Microsoft JET Database Engine (0x80040E14) Syntax error (missing operator) in query expression 'OPERATOR_Unid ='." I have searched the internet for two days now and I am pulling out what little hair I have - HELP please.
The code for my first page is:
<%@ Language=VBScript %>
<%Option explicit
Dim oRs, conn, connect, strSQL
Dim varOpID
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>Update Customer Information</TITLE>
</HEAD>
<BODY>
<TABLE width=848 border=0>
<TR>
<TD width="31%"><a href="ContractStart.asp"><IMG height=90 src="Default.gif" width=136 border=0 ></a>
</TD>
<TD width="32%">
<P align=center><B>Contract Database</B></P>
<P align=center><B>Update Customer Information</B></P>
</TD>
<TD width="1%">
</TD>
<TD width="36%">
<P align=right><IMG height=90 src="MCTF.gif" width=136 border=0></P>
</TD>
</TR>
</TABLE>
<table border="0" width="848">
<tr>
<td width="10%"><input type="button" value="Go Back" onClick="history.go(-1)"id=button1 name=button1 style="background-color: #C5E6F7; color: #00000"></td>
</tr>
</table>
<%
'Create an instance of the connection Object
set conn=server.CreateObject ("adodb.connection")
'Open a connection to the Contract File
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ContractDataWeb.mdb") & ";Persist Security Info=False"
conn.Open connect
%>
<%
'Create an Instance of the Recordset Object - from above method="Post" action="ContractStart.asp">ROWS ="2">
Set oRs=Server.CreateObject("adodb.recordset")
varOpID=Request.QueryString ("objOpID")
'The Open method of the Recordset Object is used to retrieve '"& varOpID &"'
'data from the Contract Database
strSQL = "SELECT DISTINCT tblOperatorFile.OPERATOR_Unid,tblOperatorFile.OPER ATOR, tblOperatorFile.Contact_1," _
& " tblOperatorFile.Contact_2, tblOperatorFile.TELEPHONE, tblOperatorFile.Telephone_2," _
& " tblOperatorFile.Telephone_OutofHours, tblOperatorFile.Fax_No, tblOperatorFile.Email," _
& " tblOperatorFile.Paperwork_Proc, tblOperatorFile.Order_Number_Proc, tblOperatorFile.General_Notes_Requests" _
& " FROM tblOperatorFile INNER JOIN tblVehicleContract ON tblOperatorFile.Operator_unid = tblVehicleContract.Operator_ID" _
& " WHERE tblOperatorFile.Operator_Unid = "& varOpID &""
oRs.Open strSQL, conn
%>
<FORM name="form" method="post" action="ContractUpdate.asp">
<table>
<tr>
<td> Contact No.1: </td>
<td><input type="text" name="contact1" value="<%= oRs("Contact_1") %>" SIZE=100></td>
</tr>
<tr>
<td> Telephone No.1: </td>
<td><input type="text" name="TELEPHONE 1" value="<%= oRs("TELEPHONE") %>" SIZE=100></td>
</tr>
<tr>
<td> Out of Hours: </td>
<td><input type="text" name="Telephone_OutofHours" value="<%= oRs("Telephone_OutofHours") %>" SIZE=100></td>
</tr>
<tr>
<td> Contact No.2: </td>
<td><input type="text" name="Contact_2" value="<%= oRs("Contact_2") %>" SIZE=100></td>
</tr>
<tr>
<td> Telephone No.2: </td>
<td><input type="text" name="Telephone_2" value="<%= oRs("Telephone_2") %>" SIZE=100></td>
</tr>
<tr>
<td> Fax Number: </td>
<td><input type="text" name="Fax_No" value="<%= oRs("Fax_No") %>" SIZE=100></td>
</tr>
<tr>
<td> Email address: </td>
<td><input type="text" name="Email" value="<%= oRs("Email") %>" SIZE=100></td>
</tr>
<tr>
<td> Order Number Procedure: </td>
<td><input type="text" name="Order_Number_Proc" value="<%= oRs("Order_Number_Proc") %>" SIZE=100></td>
</tr>
<tr>
<td> Paperwork Procedure: </td>
<td><input type="text" name="Paperwork_Proc" value="<%= oRs("Paperwork_Proc") %>" SIZE=100></td>
</tr>
<tr>
<td><input type="text" name="ID" value="<%=oRs("OPERATOR_Unid")%>"></td>
<td><input type="submit" name="Submit" value="Submit Changes"></td>
</tr>
<%
oRs.Close
set oRs=Nothing
set conn=Nothing
%>
</BODY>
</HTML>
*************************************
and the second page is:
<% @Language=VBScript %>
<%Option Explicit%>
<%
Dim oRs, conn, connect, strSQL, lngRecordNo, varOpID
lngRecordNo = Request.Form ("ID")
set conn=server.CreateObject ("adodb.connection")
connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ContractDataWeb.mdb") & ";Persist Security Info=False"
conn.Open connect
Set oRs = Server.CreateObject("adodb.recordset")
strSQL="SELECT tblOperatorFile.* FROM tblOperatorFile WHERE OPERATOR_Unid =" & lngRecordNo
oRs.Open strSQL, conn, adOpenDynamic, adLockOptimistic
oRs("Contact_1")
oRs("Contact_1")
oRs("Contact_2")
oRs("TELEPHONE")
oRs("Telephone_2")
oRs("Telephone_OutofHours")
oRs("Fax_No")
oRs("Email")
oRs("Paperwork_Proc")
oRs("Order_Number_Proc")
oRs.Close
Set oRs=Nothing
conn.Close
set conn=Nothing
Response.Redirect "ContractOperator.asp"
%>
*********************************************
Any assistance will be greatfully received
Peter
Syntax error (missing operator)
