missing operator

[Stevee]

Hi, assistance would be appreciated, I have inherited a database and a bunch of .asp scripts, I have amended the database and have managed to get to view etc on line using aspmaker, GREAT (I thought). The asp's are all used to run on a different server I am now using a PC, WIndows, XP Pro through IIS. Having not used asp before I thought I'd have a quick look and see.
The problem I am getting is:

Error Type:
Microsoft JET Database Engine (0x80040E14)
Syntax error (missing operator) in query expression 'PubID ='.
/asp/functions.asp, line 14

The function, The first line = 9 so line 14 = rs.Open strSQL, conn:

Function SetCurrentPub(P ubID)
OpenDB
Set rs=Server.Creat eObject("ADODB. Recordset")
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID & ";"
rs.Open strSQL, conn
Session("strPub Title")=rs("tit le")
Session("strPub WorkingDirector y")="C:\inetpub \wwwroot\TiHo3\ tihov32.mdb" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "Working\" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "WorkingDir \" & rs("WorkingDir" )
Session("strPub ID")=rs("PubID" )
Session("strPub Template")=rs(" Template")
Session("strPub TotalPages")=rs ("TotalPages ")
Session("strPub RectsImported") =rs("RectsImpor ted")
CloseDB
End Function

Any assistance would be great, thanks.

Stevee

[CroCrew]

Hello Stevee,

Try this:

From:
[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID & ";"
[/code]

To:
[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = '" & PUBID & "'"
[/code]

Hope that helps~

[CroCrew]

Or to:
[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
[/code]
If the database type is an integer for the field "PubID".

CroCrew~

[Stevee]

Thanks, I'll try them both, will advise. :-)

[Stevee]

Or to:
[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
[/code]
If the database type is an integer for the field "PubID".

CroCrew~

Well I have to assume it's an integer, it's actually a database table name, it now gives an:

Unterminated string constant
/asp/functions.asp, line 13, column 61

Columns throw me a little.

Stevee.

[CroCrew]

Hello Stevee,

Add this to your code and paste what is being printed in your browser.

[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
Response.Write( "[" & strSQL & "]")
Rresponse.End
[/code]

That will help us/me out a bit.

Thanks~

[CroCrew]

And is this the whole error that you’re getting?

:
Unterminated string constant
/asp/functions.asp, line 13, column 61

[CroCrew]

Right now I have to think that your local variable “PUBID” has some type of carriage return in it and that is why you’re getting the error. But, that is just a shot in the dark. We will know more after we see what you get back after showing us what your query string looks like by using the above Response.Write code.

CroCrew~

[Stevee]

Hello Stevee,

Add this to your code and paste what is being printed in your browser.

[code=asp]
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
Response.Write( "[" & strSQL & "]")
Rresponse.End
[/code]

That will help us/me out a bit.

Thanks~

Where in the code, right at the begining before everything else?

[CroCrew]

Add it before the line “rs.Open strSQL, conn”

[CroCrew]

Also after we are done debugging this do this:

Before your line
[code=asp]
Session("strPub Title")=rs("tit le")
[/code]

add this:
[code=asp]
If (rs.EOF) Then
Response.Write( "No Records returned from the database!")
Response.End
End If
[/code]

[Stevee]

Add it before the line “rs.Open strSQL, conn”

So like this:

Function SetCurrentPub(P ubID)
OpenDB
Set rs=Server.Creat eObject("ADODB. Recordset")
'strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID

strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
Response.Write( "[" & strSQL & "]")
Rresponse.End

rs.Open strSQL, conn
Session("strPub Title")=rs("tit le")
Session("strPub WorkingDirector y")="C:\inetpub \wwwroot\TiHo3\ tihov32.mdb" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "Working\" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "WorkingDir \" & rs("WorkingDir" )
Session("strPub ID")=rs("PubID" )
Session("strPub Template")=rs(" Template")
Session("strPub TotalPages")=rs ("TotalPages ")
Session("strPub RectsImported") =rs("RectsImpor ted")
CloseDB
End Function

[Stevee]

So altogether:

Function SetCurrentPub(P ubID)
OpenDB
Set rs=Server.Creat eObject("ADODB. Recordset")
'strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID

strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
Response.Write( "[" & strSQL & "]")
Rresponse.End

rs.Open strSQL, conn

If (rs.EOF) Then
Response.Write( "No Records returned from the database!")
Response.End
End If

Session("strPub Title")=rs("tit le")
Session("strPub WorkingDirector y")="C:\inetpub \wwwroot\TiHo3\ tihov32.mdb" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "Working\" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "WorkingDir \" & rs("WorkingDir" )
Session("strPub ID")=rs("PubID" )
Session("strPub Template")=rs(" Template")
Session("strPub TotalPages")=rs ("TotalPages ")
Session("strPub RectsImported") =rs("RectsImpor ted")
CloseDB
End Function

[Stevee]

Or do I have to remove the line breaks?

[CroCrew]

ok like this:

[code=asp]
Function SetCurrentPub(P ubID)
OpenDB
Set rs=Server.Creat eObject("ADODB. Recordset")
strSQL = "SELECT * FROM tblPublications WHERE PubID = " & PUBID
Response.Write( "[" & strSQL & "]")
Response.End

rs.Open strSQL, conn

If (rs.EOF) Then
Response.Write( "No Records returned from the database!")
Response.End
End If

Session("strPub Title")=rs("tit le")
Session("strPub WorkingDirector y")="C:\inetpub \wwwroot\TiHo3\ tihov32.mdb" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "Working\" & rs("WorkingDir" )
'Session("strPu bWorkingDirecto ry")= strMyRoot & "WorkingDir \" & rs("WorkingDir" )
Session("strPub ID")=rs("PubID" )
Session("strPub Template")=rs(" Template")
Session("strPub TotalPages")=rs ("TotalPages ")
Session("strPub RectsImported") =rs("RectsImpor ted")
CloseDB
End Function
[/code]