No se actualizan los datos...

[Cameron_2006]

Hola de nuevo...

Ahora el problema que tengo es que el código de modificación no funciona y no tengo idea de¡l por qué, no se que estoy haciendo mal... no veo el horror, a ver si alguien me puede ayudar?

Tengo un formulario que recoge perfectamente los datos actuales que tiene el usuario en la base de datos, este formulario lo envia a un fichero que debería actualizar esos datos, pero... no lo hace , y lo mejor de todo es que no muestra error.

Los campos de la base de datos están correctos, revisados 287.911 veces

el formulario es este: datos.asp
<%
Set con=Server.CreateObject("ADODB.Connection")
con.open "miservidor"
Set rs=Server.CreateObject("ADODB.RecordSet")
%>
</p>
</p>
<FORM METHOD="POST" ACTION="modificar_datos.asp?usuario=<%=usuario%>">
<input name="usuario" type="hidden" value="<%=Request.QueryString("usuario")%>">

<%


ssql="SELECT * from socios where usuario='"&usuario&"'"
set rs = con.Execute(SsQL)

dim cnombre1, cnombre2, capellido1, capellido2, ctelefono, cclave, cfecha

cnombre1=rs("nombre1")
cnombre2=rs("nombre2")
capellido1=rs("apellido1")
capellido2=rs("apellido2")
ctelefono=rs("telefono")
cclave=rs("clave1")
cfecha=rs("fecha_modifica")

%>
<br>

<br />
<b>Primer Nombre</b><br>
<INPUT NAME="cnombre1" TYPE="TEXT" id="cnombre1" value=<%=cnombre1%> >
<br>
<br>
<b>Segundo Nombre</b><br>
<INPUT NAME="cnombre2" TYPE="TEXT" id="cnombre2" value=<%=cnombre2%> >
<br>
<br>
<b>Primer Apellido</b><br>
<INPUT NAME="capellido1" TYPE="TEXT" id="capellido1" value=<%=capellido1%> >
<br>
<br>
<b>Segundo Apellido</b><br>
<INPUT NAME="capellido2" TYPE="TEXT" id="capellido2" value=<%=capellido2%> >
<br>
<br>

<b>Tel&eacute;fono</b><br>
<INPUT NAME="ctelefono" TYPE="TEXT" id="ctelefono" value=<%=ctelefono%> >
<br>
<bR />
<b>Clave</b><br>
<INPUT NAME="cclave" TYPE="TEXT" id="cclave" value=<%=cclave%> >
<br>
<br>
<b>Fecha &uacute;ltima modificaci&oacute;n </b><br>
<INPUT NAME="cfecha" TYPE="TEXT" id="cfecha" value=<%=cfecha%> >
<br /><br>

<center><INPUT TYPE="SUBMIT" value="Modificar"> </center>
</FORM>

<%
rs.close
con.close
Set rs=nothing
Set con=nothing


%>


Y ESTE ES EL UPDATE: modificar_datos.asp<%


Set conexion11=Server.CreateObject("ADODB.connection")
conexion11.open "miservidor"
Set Rss1=Server.CreateObject("ADODB.RecordSet")

'se recogen los datos del formulario, declarando las diferentes variables


cnombre1=request.form("cnombre1")
cnombre2=request.form("cnombre2")
capellido1=request.form("capellido1")
capellido2=request.form("capellido2")
ctelefono=request.form("ctelefono")
cclave=request.form("cclave")
cfecha=date()

' se define el query para modificar los datos del socio"
'se aplica un filtrado por email
ssqls1="select * from Socios"
Rss1.Open Ssqls1,conexion11,1,2
Rss1.Filter = "email = '"&email&"'"
%>


<%
do while not Rss1.eof

rss1("nombre1")=cnombre1
rss1("nombre2")=cnombre2
rss1("apellido1")=capellido1
rss1("apellido2")=capellido2
Rss1("telefono")=ctelefono
Rss1("clave1")=cclave
Rss1("fecha")=cfecha

rss1.update
rss1.MoveNext
loop

Response.write "<center>Datos modificados correctamente</center>"



Rss1.close
Set Rss1=Nothing
conexion11.close
Set Conexion11=Nothing
%>

[Shiryu_Libra]

cuando le dices que usuario tenga valor??????

<FORM METHOD="POST" ACTION="modificar_datos.asp?usuario=<%=usuario%>">
<input name="usuario" type="hidden" value="<%=Request.QueryString("usuario")%>">

<%


ssql="SELECT * from socios where usuario='"&usuario&"'"

no miro en el codigo algo asi como

usuario = request.querystring("usuario")

me dices

[Adler]

Shiryu_Libra perdona que reinterprete tus palabras

Camero_2006 ¿Se rellena el formulario, arreglo a lo que te dice Shiryu de que no se ve donde recoges el valor "usuario"?

Otra cosa que no entiendo es por qué haces un bucle

do while not Rss1.eof

cuando se supone que solo vas a actualizar un registro

En el form estas usando el método POST ¿entonces para que quieres

modificar_datos.asp?usuario=<%=usuario%>?

¿Para qué tienen este hidden

<input name="usuario" type="hidden" value="<%=Request.QueryString("usuario")%>">

si después no lo recoges en modificar_datos.asp?
Suerte

[Cameron_2006]

Gracias por contestar.

Repondiendo a Shiryu_Libra esto:

usuario = request.querystring("usuario")

está al inicio de la página ya que es un sitio con acceso restringido y todas las páginas lo tienen.

pero lo coloco de todas maneras para confirmar:

<%
dim usuario
usuario=Request.querystring("usuario")

if session("nombre")="" then
response.redirect("misitio/error.asp")
end if
%>

[Myakire]

Iniciado por Cameron_2006

Gracias por contestar.

Repondiendo a Shiryu_Libra esto:

usuario = request.querystring("usuario")

está al inicio de la página ya que es un sitio con acceso restringido y todas las páginas lo tienen.

pero lo coloco de todas maneras para confirmar:

<%
dim usuario
usuario=Request.querystring("usuario")

if session("nombre")="" then
response.redirect("misitio/error.asp")
end if
%>

mmmmmm

Usas Request.querystring("usuario") lo que significa que "usuario" se ve en la barra de direcciones, y por otro lado solo validas que la sesión nombre no venga vacía, eso deja a tu sitio con un potencial problema de suplantación de identidades ¿no crees?