Insert Record Error

rper · #1 (**permalink**) 03-16-04, 15:34

I have an form that takes in some information, and then calls confirm.asp to insert the record into my database.

I get this error:

Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/confirm.asp, line 10

Here is my confirm.asp

Code:

<%
dim objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db\testdb.mdb")&";"
objConn.Open 

dim objRS
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open "tblContact",objConn,,adLockOptimistic,adCmdTable

objRS.AddNew
objRS("Email")=Request.Form("Email")
objRS("FirstName")=Request.Form("FirstName")
objRS("LastName")=Request.Form("LastName")
objRS("Comments")=Request.Form("Comments")
objRS("DateContacted")=Date()
objRS.Update
%>
<p>
<%
dim strFirstName
strFirstName = Request.Form("FirstName")
%>
<br>
</p>
<%
objRS.Close
set objRS=Nothing
objConn.Close
set objConn=Nothing
%>

Thanks.

jenzien · #2 (**permalink**) 03-17-04, 13:19

Have you tried an insert command instead? try the following code:

Code:

<%
dim RS
dim objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db\testdb.mdb")&";"
objConn.Open 

sql = "insert into tblContact(Email, FirstName, LastName, Comments) values('"&request("Email")&"','"&request("FirstName")&"','"&request("LastName")&"','"&request("Comments")&'");"
set RS=Conn.Execute(sql)
%>
<p>
<%
dim strFirstName
strFirstName = Request.Form("FirstName")
%>
<br>
</p>
<%
objConn.Close
set objConn=Nothing
%>

Hope this helps....

jenzien · #3 (**permalink**) 03-17-04, 13:22

oops i made a mistake
change set RS=Conn.Execute(sql) to set RS=objConn.Execute(sql)

rper · #4 (**permalink**) 03-17-04, 15:32

Code:

<%
dim objRS
dim objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db\testdb.mdb")&";"
objConn.Open 

sql = "insert into tblContact(Email, FirstName, LastName, Comments) values('"&request("Email")&"','"&request("FirstName")&"','"&request("LastName")&"','"&request("Comments")&"');"
set objRS = objConn.Execute(sql)
%>
<p>
<%
dim strFirstName
strFirstName = Request.Form("FirstName")
%>
<br>
</p>
<%
objConn.Close
set objConn=Nothing
%>

I now get:

Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/confirm.asp, line 9

hausbro · #5 (**permalink**) 03-19-04, 13:02

I usually set up my object a little different...try this:

Code:

Dim dsn
set dsn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("db\testdb.mdb")&";"

Dim oconn
set oconn=server.CreateObject("adodb.connection")
oconn.open,dsn 

dim objRS
set objRS= createobject("ADODB.Recordset")
objRS.CursorType = 1
objRS.LockType = 3
objRS.Source = "tblContact"
objRS.Open,oconn

objRS.AddNew
objRS("Email")=request("Email")
objRS("FirstName")=request("FirstName")
objRS("LastName")=request("LastName")
objRS("Comments")=request("Comments")
objRS("DateContacted")=Date()
objRS.Update
objRS.Close
set objRS=Nothing
oconn.Close
set oconn=Nothing

...subtle differences, but this works for me every time.

Internet Services

Web Development

Digital Marketing

Consumer Tech