tengo un problema con este codigo para agregar en la base de datos me dice que no se puede actualizar debido a que el objeto es de solo lectura que puedo hacer.
<%
'********************Modulo de Agregar************
Dim oConn, rs, SQL
nombre= request.form ("nombre")
apellido= request.form ("apellido")
ci= request.form ("ci")
telefono= request.form ("Telefono")
Mail= request.form ("mail")
'profesion=request.form ("PyE")
'ocupacion=request.form ("Ocupacion")
'empresa=request.form ("empresa")
direccion=request.form ("direccion")
'cargo=request.form ("CD")
code= request.form ("code")
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Bases de Datos\San Ignacio de Loyola.mdb")
SQL="SELECT * FROM Acceso_PyR "
rs.Open SQL, oConn, 1, 2
rs.AddNew
if ((nombre="") and (apellido="") and (telefono="") and (mail="") and (direccion="") and (password="") and (ci="")) then
response.redirect ("registro.asp")
else
session("correo")=mail
session("name")=nombre
session("ape")=apellido
rs("Cedula_PyR")=ci
rs("Nombres")=nombre
rs("Apellidos")=apellido
rs("tlfs")=telefono
rs("mail")=mail
rs("direccion")=direccion
rs("Password")= code
rs.update
rs.close
response.redirect ("Mensaje.asp")
end if
rs.Close
