Estoy haciendo un formulario para modificar datos personales, el mismo debe mostrar al usuario los datos exxistentes, pero me sale un error en la línea 48:
ADODB.Recordset error '800a0cc1'
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
/modificardatos/form1de2.asp, línea 48
lo que contiene la línea 48 es esto:
cnombre=rs("nombre")
Pero para que me puedan comprender mejor de que va, les comento que antes de llegar a este formulario, la clave debe ser validada y una vez se comprueba que el usuario existe debe mostrar este formulario con todos sus datos. Ahora bien, a continuación muestro todo el código de la página donde me da el error para ver si alguien puede ayudarme, gracias de antemano.
<%
dim usuario
usuario=Request.querystring("usuario")
if session("nombre")="" then
response.redirect("index.asp")
end if
%>
<HTML>
<BODY>
<div align="center">
<h1>Modificar Usuario Administrativo</h1>
<br>
<%
Set con=Server.CreateObject("ADODB.Connection") 'creo objeto connection
con.open "miservidor.modificar"
Set rs=Server.CreateObject("ADODB.RecordSet")
%>
<FORM METHOD="POST" ACTION="modificar_datos.asp">
Usuario<br>
<%
'Creamos la sentencia SQL y la ejecutamos
Ssql="select usuario from modificar where usuario='"&usuario&"'"
set rs = con.Execute(SsQL)
%>
<select name="usuario">
<%
'Generamos el menu desplegable
Do While not rs.eof%>
<option><%=rs("usuario")%>
<%rs.movenext
Loop
%>
</select>
<%
SsQL="Select nombre, clave, correo, apellidos, direccion, ciudad, pais, cp, telefono, fax, fecha, usuario from modificar where usuario='"&usuario&"'"
dim cnombre, cclave, ccorreo, capellidos, cdireccion, cciudad, cpais, ccp, ctelefono, cfax, cfecha, cusuario
cnombre=rs("nombre") <=========== LINEA 48 =======
cclave=rs("clave")
ccorreo=rs("correo")
capellidos=rs("apellidos")
cdireccion=rs("direccion")
cciudad=rs("ciudad")
cpais=rs("pais")
ccp=rs("cp")
ctelefono=rs("telefono")
cfax=rs("fax")
cfecha=rs("fecha")
cusuario=rs("usuario")
set rs = con.Execute(SsQL)
%>
<br>
Nombre<br>
<INPUT NAME="nombre" TYPE="TEXT" id="nombre" value=<%=cnombre%> >
<br>
<br>Clave<br>
<INPUT NAME="clave" TYPE="TEXT" id="clave" value=<%=cclave%> >
<br>
<br>Correo<br>
<INPUT NAME="correo" TYPE="TEXT" id="correo" value=<%=ccorreo%> >
<br>
<br>Apellidos<br>
<INPUT NAME="apellidos" TYPE="TEXT" id="apellidos" value=<%=capellidos%> >
<br>
<br>Dirección<br>
<INPUT NAME="direccion" TYPE="TEXT" id="direccion" value=<%=cdireccion%> >
<br>
<br>Ciudad<br>
<INPUT NAME="ciudad" TYPE="TEXT" id="ciudad" value=<%=cciudad%> >
<br>
Pais<br>
<INPUT NAME="pais" TYPE="TEXT" id="pais" value=<%=cpais%> >
<br>
<br>Cóigo postal<br>
<INPUT NAME="cp" TYPE="TEXT" id="cp" value=<%=ccp%> >
<br>
<br>Telefono<br>
<INPUT NAME="telefono" TYPE="TEXT" id="telefono" value=<%=ctelefono%> >
<br>
<br>Fax<br>
<INPUT NAME="fax" TYPE="TEXT" id="fax" value=<%=cfax%> >
<br>
<br>Fecha<br>
<INPUT NAME="fecha" TYPE="TEXT" id="fecha" value=<%=cfecha%> >
<br>
<br>Usuario<br>
<INPUT TYPE="TEXT" NAME="unidad" value=<%=cusuario%> ><br>
<INPUT TYPE="SUBMIT" value="Modificar">
</FORM>
</div>
<%
rs.close
con.close
Set rs=nothing
Set con=nothing
%>
</BODY>
</HTML>