AYUDA: BD, ASP, RS, no entiendo nada!

[pablo1981]

Hola mi problema es el siguiente: un usuario inicia sesión en mi página, y este si quiere puede ir a su panel de control donde encuentra sus datos que los puede modificar... ahora bien... cuando el modifica sus datos (nombre, apellido, etc) y pulsa el boton enviar del formulario... estos datos van a una página que se llama actualizar.asp y que lo procesa, el codigo de esa página es:

Código:

 
<%
autorizacion=session("autorizacion_diluxnet")
nombre=request.querystring("nombre")
apellido=request.querystring("apellido")
webmail=request.querystring("webmail")
usuario=request.querystring("usuario")
contrasena=request.querystring("contrasena")
telefono=request.querystring("telefono")
direccion=request.querystring("direccion")
localidad=request.querystring("localidad")
provincia=request.querystring("provincia")
pais=request.querystring("pais")

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set Conn = Server.CreateObject("ADODB.Connection")
MyConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; "
MyConnStr = MyConnStr & "DBQ=d:\msl-server\database\efyd\user_diluxnet.mdb;"

MyConnStr = MyConnStr & "PWD=pablopablopablo"
Conn.Open(MyConnStr)
set rs=createobject("ADODB.Recordset")

rs.CursorType = adOpenKeyset 
rs.LockType = adLockOptimistic

sqltxt="Select * from usuarios where webmail='"&autorizacion&"'"


rs.open sqltxt,MyConnStr
rs.Fields("nombre")=nombre
---> aquí van más actualizaciones de la tabla pero no las pongo todas<-----
rs.Update


response.redirect "controlpanel.asp?pagina=index"
conn.close
%>

Ahora... este código me da error... yo lo que quiero es que se actualicen los datos del usuario, y no que se agreguen nuevos registros a la tabla de access... es dificil? para mi si!!! ja, bueno ojala me puedan ayudar.

Gracias

Pablo ;)

[AlZuwaga]

Si da error... podrías decir cuál es el error y la línea donde ocurre?

Realmente te inserta nuevos registro en vez de actualizarlos con un "rs.Update"?

[larrea]

Te envío un código para actualizar los registros que suelo utilizar.
Espero que te de una pista

Dim Conexion,registro
Set Conexion=Server.CreateObject("adodb.connectio n")
Set registro=Server.CreateObject("adodb.recordset ")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("BaseDeDatos.mdb")

registro.Open "Tabla", Conexion, 2, 2
set clave=(Request("Index"))
registro.find "ID ="&clave
registro ("Tabla") =(Request("Variable"))
'
'
Otros campos para actualizar
'
'
registro.movenext
registro.Close
Set registro = Nothing
conexion.Close
Set conexion = Nothing
NOTA
Este código recoge los datos de un formulario anterior que edita unos campos de la base.
Donde Index es el id del registro que editaremos
Tabla es el nombre de la tabla
Variable es la variable que contiene el texto que se cambiara

Espero que te sirva.