800A0401: Expected End of Statement

[Primadona Rifai]

I am trying to get this code going but always the following error
message:

Error Type:
Microsoft VBScript compilation (0x800A0401)
Expected end of statement
/hbgary/webdev/functions/functions.asp, line 367, column 64
rs = "SELECT Body.G1, Body.G2, Body.content FROM Body Where G1="1" And
G2="1""


Here's my code:

<%Sub Get_MainBody()
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
cn.Open "DSN=Webdata"
rs = "SELECT Body.G1, Body.G2, Body.content FROM Body Where G1="1"
And G2="1""
If not rs.EOF then
Response.Write rs("content")
End If
rs.Close
cn.Close
Set rs=nothing%>

Can anybody point on where I did wrong?

Thanks,
P. Rifai

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[Ray at]

You're trying to stick " in the middle of a string. The " terminates the
string though. If your G1 and G2 are text types of data, delimit with '.
If they are numeric, do not delimit. IE

rs = "SELECT Body.G1, Body.G2, Body.Content FROM Body WHERE G1='1' AND
G2='1'"

Notice that that is just a string. And a string starts with a " and ends
with a ". There cannot be a " in the middle of your string. If you need a
" in the middle of string, you put "" to indicate a " character. Either
that or you concatenate chr(34).

Ray at work


"Primadona Rifai" <primadona.rifai@verizon.net> wrote in message
news:%230Xp3hSiDHA.1688@TK2MSFTNGP10.phx.gbl...

> I am trying to get this code going but always the following error
> message:
>
> Error Type:
> Microsoft VBScript compilation (0x800A0401)
> Expected end of statement
> /hbgary/webdev/functions/functions.asp, line 367, column 64
> rs = "SELECT Body.G1, Body.G2, Body.content FROM Body Where G1="1" And
> G2="1""
>
>
> Here's my code:
>
> <%Sub Get_MainBody()
> set cn = Server.CreateObject("ADODB.Connection")
> set rs = Server.CreateObject("ADODB.Recordset")
> cn.Open "DSN=Webdata"
> rs = "SELECT Body.G1, Body.G2, Body.content FROM Body Where G1="1"
> And G2="1""
> If not rs.EOF then
> Response.Write rs("content")
> End If
> rs.Close
> cn.Close
> Set rs=nothing%>
>
> Can anybody point on where I did wrong?
>
> Thanks,
> P. Rifai
>
> *** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
> Don't just participate in USENET...get rewarded for it!

[Primadona Rifai]

Thanks, I missed that in a big way.

P. Rifai

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!