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é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 última modificació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
%>