M
malty bugs
Guest
I am trying to query 3 tables in a database and show the results on the page, i will later format these. However i am faced with the following error: Syntax error (missing operator) in query expression 'ProjectID='. /QQK2/CreateReportButton.asp, line 12
Code:
<%
tmpProjectID=request.form("ProjectList")
dim orseofProject, orseofCompany, orseofDistBoard
set db=server.createobject("adodb.connection")
set orseofProject=server.createobject("adodb.recordset")
set orseofCompany=server.createobject("adodb.recordset")
set orseofDistBoard=server.createobject("adodb.recordset")
db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/QQK.mdb")
strSQL = "SELECT * FROM ProjectTbl WHERE ProjectID=" & tmpProjectID & ";"
orseofProject.Open strSQL, db
tmpCustomerID=orseofProject("CustomerID")
strSQL2 = "SELECT * FROM CompanyDetailsTbl WHERE CustomerID=" & tmpCustomerID & ";"
orseofCompany.Open strSQL2, db
strSQL3 = "SELECT * FROM DistBoardTbl WHERE ProjectID=" & tmpProjectID & ";"
orseofDistBoard.Open strSQL3, db
Response.write orseofCompany("CompanyName")
Response.write orseofCompany("Address1")
Response.write orseofCompany("Address2")
Response.write orseofCompany("Town")
Response.write orseofCompany("County")
Response.write orseofCompany("PostCode")
Response.write orseofProject("ProjectName")
Response.write orseofDistBoard("DistBoardName")%>
Code:
<%
tmpProjectID=request.form("ProjectList")
dim orseofProject, orseofCompany, orseofDistBoard
set db=server.createobject("adodb.connection")
set orseofProject=server.createobject("adodb.recordset")
set orseofCompany=server.createobject("adodb.recordset")
set orseofDistBoard=server.createobject("adodb.recordset")
db.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/QQK.mdb")
strSQL = "SELECT * FROM ProjectTbl WHERE ProjectID=" & tmpProjectID & ";"
orseofProject.Open strSQL, db
tmpCustomerID=orseofProject("CustomerID")
strSQL2 = "SELECT * FROM CompanyDetailsTbl WHERE CustomerID=" & tmpCustomerID & ";"
orseofCompany.Open strSQL2, db
strSQL3 = "SELECT * FROM DistBoardTbl WHERE ProjectID=" & tmpProjectID & ";"
orseofDistBoard.Open strSQL3, db
Response.write orseofCompany("CompanyName")
Response.write orseofCompany("Address1")
Response.write orseofCompany("Address2")
Response.write orseofCompany("Town")
Response.write orseofCompany("County")
Response.write orseofCompany("PostCode")
Response.write orseofProject("ProjectName")
Response.write orseofDistBoard("DistBoardName")%>