Asp database add code help?

  • Thread starter Thread starter Mr.Karachi
  • Start date Start date
M

Mr.Karachi

Guest
<%
dim cn,dbname,rset1,txtid
dbname=server.MapPath("/jmcwpk/jmdb1.mdb")
set cn=Server.CreateObject("ADODB.Connection")

cn.connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & dbname & "';Persist Security Info=False"

cn.open

set rset1=Server.CreateObject("ADODB.recordset")

rset1.open "select * from UserInfo;",cn,1,2


txtid=rset1.fields("ID")

response.write(txtid)

rset1.addnew

rset1.fields("ID")=Request.Form("userId")
rset1.fields("Pass1")=Request.Form("pasword")

rset1.update

rset1.close
cn.close

set rset1=nothing
set cn=nothing

%>

following code give error:

Error Type:
Microsoft JET Database Engine (0x80040E09)
Cannot update. Database or object is read-only.
/jmcwpk/adduser.asp, line 24


Line 24 is :rset1.open "select * from UserInfo;",cn,1,2
 
Back
Top