•
•
•
•
What is DaniWeb IT Discussion Community?
You're currently browsing the ASP section within the Web Development category of DaniWeb, a massive community of 425,996 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 1,681 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.
Please support our ASP advertiser: Lunarpages ASP Web Hosting
Views: 9682 | Replies: 1
 |
•
•
Join Date: Jul 2006
Posts: 4
Reputation: 
Rep Power: 0
Solved Threads: 0
Newbie Poster
Dear all,
I am getting this error and its not getting resolved at all:
Syntax error (missing operator) in query expression 'OrderNo='.
On line:RS.Open query, objConn
This is my code where i am pulling records on the orderno and after i have pulled the records ,i am trying to insert them in another table on clicking Submit button.I am getting Orderno from the previous page and thats getting displayed properly.Dont know why that error is commig up all the time.Here is the code:
<html>
<%@ Language="VBScript" %>
<html>
<head><title>Agent information about a client</title>
</head>
<body>
<span style="background-color: #00FFFF">
<%
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
%>
</span>
<div align='center'>
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="left" valign="top">
<td>
<div align="center">
<p><u><b><font size="5" color="#008000">Order Submittal Form</font></b></u></p>
<!-- start the html form -->
<form method="post" action="infoviewagentver212.asp" name="form">
</td>
<table width="100%" border="0">
<tr>
<td width="7%">Company Name:
</td>
<td colspan="6">
<input type="text" disabled name="CompanyName" value="<%= RS("CompanyName")%>" size='30'>
</td>
</tr>
<tr>
<td width="7%" height="32">Lender</td>
<td colspan="4" height="32">
<input type="text" disabled name="Lender" value="<%= RS("Lender")%>" size='30'>
</td>
<td height="32">
Order Number</td>
<td height="32">
<input type="text" name="OrderNo" value="<%= RS("OrderNo")%>" size='30'></td>
</tr>
<tr>
<td>
Order Processor</td>
<td width="27%" colspan="2">
<input type="text" name="NameProcessor1" value="<%= RS1("NameProcessor1")%>" size='30'></td>
<td width="14%" colspan="3">
Alternative Order Processor</td>
<td width="29%">
<input type="text" name="NameProcessor2" value="<%= RS1("NameProcessor2")%>" size='30'></td>
</tr>
<tr>
<td height="32">
Closing Date</td>
<td height="32" colspan="2">
<input type="text" name="ClosingDate" value="<%= RS("ClosingDate")%>" size='30'></td>
<td height="32" colspan="3">
Order Date</td>
<td height="32">
<input type="text" name="TodaysDate" value="todays date" size='30'></td>
</tr>
<tr>
<td>
Fee Type</td>
<td colspan="2">
<select size="1" name="FeeType">
<option>Emailed Documents</option>
<option>Overnight Fedex</option>
</select></td>
<td colspan="3">
Fee</td>
<td>
<input type="text" name="Fee" size='30'></td>
</tr>
<tr>
<td>
Time</td>
<td colspan="2">
<input type="text" name="ClosingTime" value="<%= RS("ClosingTime")%>" size='30'></td>
<td colspan="3">
Doc Delivery</td>
<td>
<input type="text" name="TitleDocuments" value="<%= RS1("TitleDocuments")%>" size='30'></td>
</tr>
<tr>
<td>
Customer Name</td>
<td colspan="2">
<input type="text" name="BorrowerName" value="<%= RS("BorrowerName")%>" size='30'></td>
<td colspan="3">
File Number</td>
<td>
<input type="text" name="FileNumber" value="<%= RS("FileNumber")%>" size='30'></td>
</tr>
<tr>
<td>
Street Address</td>
<td colspan="2">
<input type="text" name="ClosingAddress" value="<%= RS("ClosingAddress")%>" size='30'></td>
<td colspan="3">
City</td>
<td>
<input type="text" name="City" value="<%= RS("City")%>" size='30'></td>
</tr>
<tr>
<td>
State
</td>
<td colspan="2">
<input type="text" name="State" value="<%= RS("State")%>" size='30'></td>
<td colspan="3">
Zip Code</td>
<td>
<input type="text" name="Zip" value="<%= RS("Zip")%>" size='30'></td>
</tr>
<tr>
<td>
Phone1</td>
<td colspan="2">
<input type="text" name="WorkNumber" value="<%= RS("WorkNumber")%>" size='30'></td>
<td colspan="3">
Phone2
</td>
<td>
<input type="text" name="HomeNumber" value="<%= RS("HomeNumber")%>" size='30'></td>
</tr>
<tr>
<td>
Status</td>
<td colspan="2">
<select size="1" name="Status">
<option>Cancel</option>
<option>Confimed with borrower</option>
<option>Lender Received</option>
<option>H/T Received</option>
<option>Lender Printed</option>
<option>H/T Printed</option>
</select></td>
<td colspan="3">
Agent</td>
<td>
<input type="text" disabled name="AgentName" value="<%= RS("AgentName")%>" size='30'></td>
</tr>
<tr>
<td>
NOTES:</td>
<td width="44%">
<textarea rows="12" name="Notes" cols="52"></textarea></td>
<td colspan="2">
</td>
<td colspan="3">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
<p align="center">
<input type="submit" name="Submit" value="Submit"></td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<td colspan="7">
<div align="center">
</div>
</td>
</tr>
<tr>
<td colspan="7"> </td>
</tr>
</table>
<br>
<br>
</form>
<!-- end the html form -->
</div>
</td>
</tr>
</table>
</div>
<%
'close the connection and recordset objects
RS.Close
Set RS=Nothing
objconn.Close
Set objconn=Nothing
%>
</body>
</html>
I am getting this error and its not getting resolved at all:
Syntax error (missing operator) in query expression 'OrderNo='.
On line:RS.Open query, objConn
This is my code where i am pulling records on the orderno and after i have pulled the records ,i am trying to insert them in another table on clicking Submit button.I am getting Orderno from the previous page and thats getting displayed properly.Dont know why that error is commig up all the time.Here is the code:
<html>
<%@ Language="VBScript" %>
<html>
<head><title>Agent information about a client</title>
</head>
<body>
<span style="background-color: #00FFFF">
<%
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
%>
</span>
<div align='center'>
<table width="370" border="0" cellspacing="0" cellpadding="0" align="center">
<tr align="left" valign="top">
<td>
<div align="center">
<p><u><b><font size="5" color="#008000">Order Submittal Form</font></b></u></p>
<!-- start the html form -->
<form method="post" action="infoviewagentver212.asp" name="form">
</td>
<table width="100%" border="0">
<tr>
<td width="7%">Company Name:
</td>
<td colspan="6">
<input type="text" disabled name="CompanyName" value="<%= RS("CompanyName")%>" size='30'>
</td>
</tr>
<tr>
<td width="7%" height="32">Lender</td>
<td colspan="4" height="32">
<input type="text" disabled name="Lender" value="<%= RS("Lender")%>" size='30'>
</td>
<td height="32">
Order Number</td>
<td height="32">
<input type="text" name="OrderNo" value="<%= RS("OrderNo")%>" size='30'></td>
</tr>
<tr>
<td>
Order Processor</td>
<td width="27%" colspan="2">
<input type="text" name="NameProcessor1" value="<%= RS1("NameProcessor1")%>" size='30'></td>
<td width="14%" colspan="3">
Alternative Order Processor</td>
<td width="29%">
<input type="text" name="NameProcessor2" value="<%= RS1("NameProcessor2")%>" size='30'></td>
</tr>
<tr>
<td height="32">
Closing Date</td>
<td height="32" colspan="2">
<input type="text" name="ClosingDate" value="<%= RS("ClosingDate")%>" size='30'></td>
<td height="32" colspan="3">
Order Date</td>
<td height="32">
<input type="text" name="TodaysDate" value="todays date" size='30'></td>
</tr>
<tr>
<td>
Fee Type</td>
<td colspan="2">
<select size="1" name="FeeType">
<option>Emailed Documents</option>
<option>Overnight Fedex</option>
</select></td>
<td colspan="3">
Fee</td>
<td>
<input type="text" name="Fee" size='30'></td>
</tr>
<tr>
<td>
Time</td>
<td colspan="2">
<input type="text" name="ClosingTime" value="<%= RS("ClosingTime")%>" size='30'></td>
<td colspan="3">
Doc Delivery</td>
<td>
<input type="text" name="TitleDocuments" value="<%= RS1("TitleDocuments")%>" size='30'></td>
</tr>
<tr>
<td>
Customer Name</td>
<td colspan="2">
<input type="text" name="BorrowerName" value="<%= RS("BorrowerName")%>" size='30'></td>
<td colspan="3">
File Number</td>
<td>
<input type="text" name="FileNumber" value="<%= RS("FileNumber")%>" size='30'></td>
</tr>
<tr>
<td>
Street Address</td>
<td colspan="2">
<input type="text" name="ClosingAddress" value="<%= RS("ClosingAddress")%>" size='30'></td>
<td colspan="3">
City</td>
<td>
<input type="text" name="City" value="<%= RS("City")%>" size='30'></td>
</tr>
<tr>
<td>
State
</td>
<td colspan="2">
<input type="text" name="State" value="<%= RS("State")%>" size='30'></td>
<td colspan="3">
Zip Code</td>
<td>
<input type="text" name="Zip" value="<%= RS("Zip")%>" size='30'></td>
</tr>
<tr>
<td>
Phone1</td>
<td colspan="2">
<input type="text" name="WorkNumber" value="<%= RS("WorkNumber")%>" size='30'></td>
<td colspan="3">
Phone2
</td>
<td>
<input type="text" name="HomeNumber" value="<%= RS("HomeNumber")%>" size='30'></td>
</tr>
<tr>
<td>
Status</td>
<td colspan="2">
<select size="1" name="Status">
<option>Cancel</option>
<option>Confimed with borrower</option>
<option>Lender Received</option>
<option>H/T Received</option>
<option>Lender Printed</option>
<option>H/T Printed</option>
</select></td>
<td colspan="3">
Agent</td>
<td>
<input type="text" disabled name="AgentName" value="<%= RS("AgentName")%>" size='30'></td>
</tr>
<tr>
<td>
NOTES:</td>
<td width="44%">
<textarea rows="12" name="Notes" cols="52"></textarea></td>
<td colspan="2">
</td>
<td colspan="3">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
<p align="center">
<input type="submit" name="Submit" value="Submit"></td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<tr>
<td colspan="7">
</td>
</tr>
<td colspan="7">
<div align="center">
</div>
</td>
</tr>
<tr>
<td colspan="7"> </td>
</tr>
</table>
<br>
<br>
</form>
<!-- end the html form -->
</div>
</td>
</tr>
</table>
</div>
<%
'close the connection and recordset objects
RS.Close
Set RS=Nothing
objconn.Close
Set objconn=Nothing
%>
</body>
</html>
|
•
•
•
•
•
•
•
•
DaniWeb ASP Marketplace
•
•
•
•
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Linear Mode
- Sql In (ASP)
- Microsoft JET Database Engine error '80040e14' (ASP)
- error (JSP)
- error (ASP)
- againt error (ASP)
- Subshell Problem, syntax error...Help please! (Shell Scripting)
Other Threads in the ASP Forum
- Previous Thread: ASP Code Works on Local 127.0.0.1 but Not on ISP's Server
- Next Thread: Skipping Questions in my ASP survey
