Syntax error (missing operator) in query expression 'OrderNo='.HELP PLEASE

[SmileSmita]

<%
Dim objConn ,RS, data_source,query,ID,querymembers,strSQL
ID=request.querystring("ID")
Session("ID") = ID
Response.Write ID
Set objConn = Server.CreateObject("ADODB.Connection")
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db1.mdb")
objConn.Open data_source
Set RS=Server.CreateObject("ADODB.Recordset")
Set RS1=Server.CreateObject("ADODB.Recordset")
query="Select * from tblorder where OrderNo= " & Session("ID")
Response.write query
RS.Open query, objConn
querymembers="SELECT members.TitleDocuments,members.NameProcessor1,memb ers.NameProcessor2 FROM members INNER JOIN tblorder ON members.CompanyName = tblorder.CompanyName"
RS1.Open querymembers,objConn
if Request.form("submit")<>"" then
strSQL = "INSERT INTO Status ([CompanyName],[Lender],[OrderProcessor],[ClosingDate],[FeeType],[TimeofClosing],[CustomerName],[StreetAddress],[State],[Phone1],[Status],[OrderNo],[OrderProcessor2],[OrderDate],[Fee],[DocDelivery],[FileNumber],[City],[ZipCode],[Phone2],[Notes],[AgentName]) VALUES " & _
"('" & fixQuotes(Request.Form("CompanyName")) & "','" & _
fixQuotes(Request.Form("Lender")) & "','"&_
fixQuotes(Request.Form("NameProcessor1")) & "','"&_
fixQuotes(Request.Form("ClosingDate"))&"','"&_
fixQuotes(Request.Form("FeeType"))&"','"&_
fixQuotes(Request.Form("ClosingTime"))&"','"&_
fixQuotes(Request.Form("BorrowerName"))&"','"&_
fixQuotes(Request.Form("ClosingAddress"))&"','"&_
fixQuotes(Request.Form("State"))&"','"&_
fixQuotes(Request.Form("WorkNumber"))&"','"&_
fixQuotes(Request.Form("Status"))&"','"&_
fixQuotes(Request.Form("OrderNo"))&"','"&_
fixQuotes(Request.Form("NameProcessor2"))&"','"&_
fixQuotes(Request.Form("OrderDate"))&"','"&_
fixQuotes(Request.Form("Fee"))&"','"&_
fixQuotes(Request.Form("TitleDocuments"))&"','"&_
fixQuotes(Request.Form("FileNumber"))&"','"&_
fixQuotes(Request.Form("City"))&"','"&_
fixQuotes(Request.Form("Zip"))&"','"&_
fixQuotes(Request.Form("HomeNumber"))&"','"&_
fixQuotes(Request.Form("Notes"))&"')"','"&_
fixQuotes(Request.Form("AgentName"))&"')"
Response.write strSQL
objConn.Execute(strSQL)
end if
Function fixQuotes(strData)
fixQuotes = Replace(strData,"'","''")
End Function
%>

Order Submittal Form

Company Name:


" size='30'>         

Lender

" size='30'>


Order Number

" size='30'>

Order Processor

" size='30'>

Alternative Order Processor

" size='30'>

Closing Date

" size='30'>

Order Date



Fee Type

Emailed DocumentsOvernight Fedex

Fee



Time

" size='30'>

Doc Delivery

" size='30'>

Customer Name

" size='30'>

File Number

" size='30'>

Street Address

" size='30'>

City

" size='30'>

State


" size='30'>

Zip Code

" size='30'>

Phone1

" size='30'>

Phone2


" size='30'>

Status

CancelConfimed with borrowerLender ReceivedH/T ReceivedLender PrintedH/T Printed

Agent

" size='30'>

NOTES:



 

 

 

 

 

 


 

 



<%
'close the connection and recordset objects
RS.Close
Set RS=Nothing
objconn.Close
Set objconn=Nothing
%>

[madmital]

If the OrderNo db column is an integer field you shouldn't use single quotes. Single quotes implies string value.