ayuda!!!

Perla
13 de Mayo del 2005
Hola alguien por favor ke me diga como hacer un formulario para modificar datos de un usuario,

tengo el archivo de acceso, si los dtaos on correctos me manda al archivo aplicacion, ahi tengo el link para modificar los datos,pero estos no me salen, aki esta el codigo:


aplicacion.asp :



<!--#include file="seguridad.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%

nick = request.Form("txtnick")
Session("Nick") = nick

%>


<html>
<head>
<title>Autentificacin de Usuario</title>
<link rel="STYLESHEET" type="text/css" href="estilo.css">
</head>

<body background="Imagenes/fondo.jpg" bgproperties="fixed">

<br>
<div align="center">
<h3>rea de Foros</h3>
<br>
<br>
Has sido autentificado correctamente, ahora puedes ingresar al are de <a href="Foros.asp">Foros</a>.
<br><br>
<!--
\'primero que nada, me fijo si la Session esta en True.
If Session("nick") = True then
\'si es True, mando este texto.
Response. Write "Conectado como:<B>Session</B>."
\'si NO es True, mando esto.
Else
Response.Write ("acceso.asp")
Session("nick") = True
End If
-->
<br>
<br>
<b>Gracias por su visita</b>

<br><br>


<br>
<br>

<br>
<br>
<a href="modificar.asp">Modificar datos</a>
<a href="salir.asp">Desconectar</a>

</div>



</body>
</html>


modificar.asp:


<%

Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Pagina.mdb")
Conexion.Open

cSql= "Select * From usuarios Where Nick = \'" & Nick &"\'"
set rsusuario = Conexion.execute(cSql)

%>
<html>
<head>
<title>Modificar datos de usuario</title>

</head>

<body>
<form action="ActualizaDatos.asp" method="post">


<table border="1">
<tr>
<td>Nombre:</td>
<td><input type="text" name="txtnick" value="<%=rsusuario("Nick")%>"><%=Session("nick")%></td>
</tr>
<tr>
<td>Clave: </td>
<td><input type="password" name="txtclave" value="<%=rsusuario("clave")%>"></td>
</tr>
<tr>
<td>Repite Clave: </td>
<td><input type="password" name="txtrclave" value="<%=rsusuario("rclave")%>"></td>
</tr>
<tr>
<td>Nombre:</td>
<td><input type="text" name="txtnombre" value="<%=rsusuario("nombre")%>"></td>
</tr>
<tr>
<td>Apellidos:</td>
<td><input type="text" name="txtapellidos" value="<%=rsusuario("apellidos")%>"></td>
</tr>
<tr>
<td>Ocupacin:</td>
<td><input type="text" name="txtocupacion" value="<%=rsusuario("ocupacion")%>"></td>
</tr>
<tr>
<td>Pas:</td>
<td><input type="text" name="txtpais" value="<%=rsusuario("pais")%>"></td>
</tr>
<tr>
<td>Ciudad:</td>
<td><input type="text" name="txtciudad" value="<%=rsusuario("ciudad")%>"></td>
</tr>
<td colspan="2">
<input type="submit" name="cmdActualizar" value="Aceptar">

<input type="reset" name="cmdCancelar" value="Cancelar"></td>
</tr>
</table>
</form>
</body>
</html>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Pagina.mdb")
Conexion.Open

Nick = Request.form("txtNick")
Clave = Request.form("txtClave")
RClave = Request.form("txtRClave")
Nombre = Request.form("txtNombre")
Apellidos = Request.form("txtApellidos")
Email = Request.form("txtEmail")
Ocupacion = Request.form("txtOcupacion")
Pais = Request.form("txtPais")
Ciudad = Request.form("txtCiudad")
Cookie = Request.form("\'Desconectado\'")

cSql = "UpDate usuarios set Nombre = \'"& Nombre &"\', Email = \'"& Email &"\', Ocupacion = \'"& ocupacion &"\', nick = \'"& nick &"\', clave = \'"& clave &"\', pais = \'"& pais &"\', ciudad = \'"& ciudad &"\', where nick = \'" & nick "\'"

Conexion.Execute (cSql)

%>
<html>
<head>
<title>Actualizando los datos</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
Los datos de usuario han sido actualizado con exito!!
</body>
</html>







Ayuda please!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!