Not working?????

[Matt]

why isn't this working??? I get an 'Expected end of statement' error
on last line

<!-- #include file="adovbs.inc" -->

<%

function SetCheckbox(arg)
if arg then
SetCheckbox="checked"
else
SetCheckbox=""
end if
end function

%>

<%

Dim Conn, RS, SQL
Dim strConnect, strJobArea

strJobArea = Request.Form("SelectJobArea")


strConnect = "Driver={Microsoft Access Driver
(*.mdb)};DBQ=\\CALSJ1\PMAPPS\pmdata.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

SQL = "SELECT J.*, D.JobName " _
& " FROM mstJobs AS J, dtlContacts AS D " _
& " WHERE J.JobNumber = D.JobNumber " _
& " AND J.JobAdministrator= '" & strJobArea & "' " _
& " AND J.ContractStatusClosed = False " _
& " AND J.ContractStatus = True " _

Set RS = conn.Execute( SQL )

%>

 

[Bob Barrows [MVP]]

why isn't this working??? I get an 'Expected end of statement' error
on last line

& " AND J.ContractStatus = True " _
Set RS = conn.Execute( SQL )

You have a line continuation character with no line continuation ...


Further points to consider:
You use of dynamic sql is leaving you vulnerable to hackers using sql
injection:
http://mvp.unixwiz.net/techtips/sql-injection.html
http://www.sqlsecurity.com/DesktopDefault.aspx?tabid=23

See here for a better, more secure way to execute your queries by using
parameter markers:
http://groups-beta.google.com/group/microsoft.public.inetserver.asp.db/msg/72e36562fee7804e

Personally, I prefer using stored procedures, or saved parameter queries as
they are known in Access:

Access:
http://www.google.com/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&[email protected]

http://groups.google.com/groups?hl=...=1&[email protected]

 

[Matt]

After removing the continuation character I am getting...

Error Type:
ADODB.Connection (0x800A0E78)
Operation is not allowed when the object is closed.

 

[Dave Anderson]

After removing the continuation character I am getting...

Error Type:
ADODB.Connection (0x800A0E78)
Operation is not allowed when the object is closed.

Open your connection. It's pointless to create a connection string and then
fail to use it.

 

[Matt]

that's what I am having trouble with... i'm not a real strong swimmer
in this arena!

 

[Matt]

I added:

conn.Open strConnect
Set RS = conn.Execute( SQL )

but now i get the following error - 'Too few parameters. Expected 1"

????

 

[Matt]

I added:

conn.Open strConnect
Set RS = conn.Execute( SQL )

but now i get the following error - 'Too few parameters. Expected 1"

????

 

[Bob Barrows [MVP]]

I added:

conn.Open strConnect
Set RS = conn.Execute( SQL )

but now i get the following error - 'Too few parameters. Expected 1"

You should go read the links i posted in my first reply.

It is time to take a look at the actual sql statement:
response.write SQL