invalid property assignment: 'Open'

[danjapro]

Hthis is my error code I am trying to do and update and also an add new:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Open'

/job_modifyConfirmed.asp, line 26
<%@Language=VBScript%>
<!--#include file="adovbs.inc"-->

<%
dim Conn, rs, cn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/nfiweb.mdb") & ";"
Conn.Open
%>
<%
dim editmode, strSQL
if Request.form("JobID") = "" then
editmode = false
else
editmode = true
end if

'Response.write Request.form("JobCode")
'Response.write "<br>" & Request.form("JobTitle")
'Response.write "<br>" & Request.form("JobSkill")
'Response.write "<br>" & Request.form("JobDescription")
'Response.write "<br>" & Request.form("JobQualification")
'Response.write "<br>" & Request.form("Location")
'Response.write "<br>" & Request.form("DateNeeded")
'Response.write "<br>" & Request.form("DatePosted")
'Response.write "<br>" & Request.form("Status")
'Response.write "<br>" & Session("initials")

IF editmode = TRUE THEN
Set rs = Server.CreateObject("ADODB.Connection")
sqlString = "Select * from tblJob where JobID=" & Request.form("JobID")
' rs.Open sqlString, cn, adOpenForwardOnly, adLockOptimistic, adCmdTxt
rs.Open "sqlString", cn, rs, adOpenForwardOnly, adLockOptimistic, adCmdTxt
else
'rs.Open tblJob, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rs.Open "tblJob", cn, rs, adOpenForwardOnly, adLockOptimistic, adCmdTxt
rs.addnew
end if

rs("JobCategoryID") = Request.form("JobCategoryID")
rs("JobTitle") = Request.form("JobTitle")
rs("JobSkill") = Request.form("JobSkill")
rs("JobDescription") = Request.form("JobDescription")
rs("JobQualification") = Request.form("JobQualification")
rs("Location") = Request.form("Location")
if Request.form("DateNeeded") = "" or IsNull(Request.form("DateNeeded")) then
rs("DateNeeded") = Date
else
rs("DateNeeded") = Request.form("DateNeeded")
end if
if Request.form("DatePosted") = "" or IsNull(Request.form("DatePosted")) then
rs("DatePosted") = Date
else
rs("DatePosted") = Request.form("DatePosted")
end if
rs("Status") = Request.form("Status")
rs("PostedBy") = Session("initials")
rs.Update

response.redirect("jobList.asp?Note=add&JobTitle=" & Request.form("JobTitle"))
set Session("JobDict") = nothing
%>

 

[ChrisHirst]

so what's wrong with thread333-909522 ??




Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.

 

[danjapro]

this line keeps gfiving me this erro: granted this worked fine a month ago

rs.Open "sqlString", cn, rs, adOpenForwardOnly, adLockOptimistic, adCmdTxt

 

[ChrisHirst]

as has been pointed out to you.

your string variable is in quotes so it will be taken as a string literal NOT a reference to the variable. Therefore may well be interpreted as a database name. And you have an extra parameter in there (rs) that will be throwing the rest of the variables out



Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.

 

[danjapro]

Error:
Wrong number of arguments or invalid property assignment: 'Open'

Still gettign this this is my db connection included:

<%@Language=VBScript%>
<!--#include file="adovbs.inc"-->

<%
dim rs, cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/nfiweb.mdb") & ";"
cn.Open
%>

Code:
<%
dim editmode, strSQL
if Request.form("JobID") = "" then
editmode = false
else
editmode = true
end if

'Response.write Request.form("JobCode")
'Response.write "<br>" & Request.form("JobTitle")
'Response.write "<br>" & Request.form("JobSkill")
'Response.write "<br>" & Request.form("JobDescription")
'Response.write "<br>" & Request.form("JobQualification")
'Response.write "<br>" & Request.form("Location")
'Response.write "<br>" & Request.form("DateNeeded")
'Response.write "<br>" & Request.form("DatePosted")
'Response.write "<br>" & Request.form("Status")
'Response.write "<br>" & Session("initials")

IF editmode = TRUE THEN
Set rs = Server.CreateObject("ADODB.Connection")
' rs.Open "sqlString", cn
' rs.Open sqlString, cn, adOpenForwardOnly, adLockOptimistic, adCmdTxt
rs.Open "sqlString", cn, adOpenForwardOnly, adLockOptimistic, adCmdTxt
else
'rs.Open "tblJob", cn
'rs.Open tblJob, cn, adOpenForwardOnly, adLockOptimistic, adCmdTable
rs.Open "tblJob", cn, adOpenForwardOnly, adLockOptimistic, adCmdTxt
rs.addnew
end if

rs("JobCategoryID") = Request.form("JobCategoryID")
rs("JobTitle") = Request.form("JobTitle")
rs("JobSkill") = Request.form("JobSkill")
rs("JobDescription") = Request.form("JobDescription")
rs("JobQualification") = Request.form("JobQualification")
rs("Location") = Request.form("Location")
if Request.form("DateNeeded") = "" or IsNull(Request.form("DateNeeded")) then
rs("DateNeeded") = Date
else
rs("DateNeeded") = Request.form("DateNeeded")
end if
if Request.form("DatePosted") = "" or IsNull(Request.form("DatePosted")) then
rs("DatePosted") = Date
else
rs("DatePosted") = Request.form("DatePosted")
end if
rs("Status") = Request.form("Status")
rs("PostedBy") = Session("initials")
rs.Update

response.redirect("jobList.asp?Note=add&JobTitle=" & Request.form("JobTitle"))
set Session("JobDict") = nothing
%>
<!--#include file="include/closeDBconnection.inc"-->

 

[ChrisHirst]

take the quotes off!




Chris.

Indifference will be the downfall of mankind, but who cares?

http://www.candsdesign.co.uk

A website that proves the cobblers kids adage.

http://www.cram-system.com

Nightclub counting systems

So long, and thanks for all the fish.