Ayuda Por favor!!!!

[jpalbox]

Hola a todos llevo dos semanas intentando hacer esto y nada podeis decirme el problema donde esta. O si se puede hacer de otra forma?
Os explico lo q quiero:
1 - En una tabla previamente ya tengo el nombre, apellidos, nsocio
2 Quiero q en una pagina con un formulario el usuario introduzca los datos nsocio, nombre, apellidos, Usuario y Password. El usuario y password no los tengo en la bd, y quiero q el usuario los introduzca y asi se actualize si existe el registro que coincide exactamente con nsocio, nombre, apellidos que el usuario introduce en el formulario. Si no se realiza la actualizacion q salga un mensaje
<%
nsocio = Request.Form("nsocio")
usuario = Request.Form("usuario")
password = Request.Form("password")
nombre = Request.Form("nombre")
apellidos = Request.Form("apellidos")

'Abre la conexion con la base de datos Set con = Server.CreateObject("ADODB.Connection")
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jpalbox\db\usuarios.mdb&quot ;))

'Comprobamos en la tabla que el nombre del usuario existe.
sql = "SELECT * FROM Personal WHERE usuario='"&usuario&"' "
rs.Open sql, con
'Si el valor EOF (fin de la tabla elegida) es false, existe el usuario.
If rs.EOF = false then
Response.redirect "err03.htm"
else
sql = "SELECT * FROM Personal WHERE nsocio='" & nsocio &"' and nombre = '" & nombre &"' and apellidos ='" & apellidos &"' "
rs.Open sql, con
'no existe un registro con las condiciones que el nsocio sea igual al del form, el nombre=al del fom ni los apellidos
If rs.EOF = true then
Response.Write "Hubo un error"
else
'Ejecuta un sentencia SQL para insertar alta
sql = "UPDATE Personal SET password ='" & password & "', usuario='" & usuario & "' WHERE nsocio='"& nsocio &"' "
con.Execute(sql)
end if
end if
'Libera memoria
con.Close
Set con = Nothing
%>

[jpalbox]

Esto es lo q tengo y da error?

[jpalbox]

Nadie me puede solucionar na???? Esos expertos en asp.¿Donde andaran? jeje

[urjose]

Es que es de esos mensajes donde ves tanto código que da flojera leer.

Bueno dices que no lo hace , pero hasta que punto llega es script o que error o que onda?

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[jpalbox]

Me dice pagina no encontrada. Yo creo que utilizo mucho rs. No se...

[urjose]

Se puede ver online?



<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[jpalbox]

si te pongo la direccion http://www10.brinkster.com/kronosalbox/altasusua.htm

y estos son los datos de la base de datos y quiero q los que no tienen password ni usuario se puedan dar de alta poniendose unos

socio Password Usuario Nombre Apellidos
1 Juan Reche Carrillo
2 2 diego Diego Reche Carrillo
3 Juan Reche

[jpalbox]

perdona la tabla a qui tienes los datos de la tabla

nsocio = 1
Password=
Usuario=
Nombre=Juan
Apellidos=Reche Carrillo

Otro registro

nsocio = 2
Password=2
Usuario=diego
Nombre=Diego
Apellidos=Reche Carrillo

[jpalbox]

Antes tenia este codigo que funciona bien, pero el unico problema es q sale siempre el mensaje de insercion correcta. Realice o no la insercion

&lt;%
nsocio = Request.Form(&quot;nsocio&quot;)
usuario = Request.Form(&quot;usuario&quot;)
password = Request.Form(&quot;password&quot;)
nombre = Request.Form(&quot;nombre&quot;)
apellidos = Request.Form(&quot;apellidos&quot;)

'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject(&quot;ADODB.Connection&quot;)
'Como vamos a utilizar la variable rs del tipo recordset para recorrer los registros con EOF
Set rs = Server.CreateObject(&quot;ADODB.Recordset&quot;)
con.Open(&quot;DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;\jpalbox\db\usuarios.mdb&quot ;))

'Comprobamos en la tabla que el nombre del usuario existe.
sql = &quot;SELECT * FROM Personal WHERE usuario='&quot;&amp;usuario&amp;&quot;' &quot;
rs.Open sql, con

'Si el valor EOF (fin de la tabla elegida) es false, existe el usuario.
If rs.EOF = false then
Response.redirect &quot;err03.htm&quot;
else
'Ejecuta un sentencia SQL para insertar alta
sql = &quot;UPDATE Personal SET password ='&quot; &amp; password &amp; &quot;', usuario='&quot; &amp; usuario &amp; &quot;' WHERE nsocio='&quot;&amp; nsocio &amp;&quot;' and nombre = '&quot; &amp; nombre &amp; &quot;' and apellidos ='&quot; &amp; apellidos &amp;&quot;'&quot;
con.Execute(sql)
if err=0 then
response.write &quot;modificacion correcta&quot;
else
response.write &quot;modificacion incorrecta&quot;
end if
end if
'Libera memoria
con.Close
Set con = Nothing

%&gt;