
12/01/2009, 11:31
|
| | Fecha de Ingreso: diciembre-2008
Mensajes: 11
Antigüedad: 16 años, 4 meses Puntos: 0 | |
Respuesta: Formulario HTML y base de datos Os comento a ver ya funciona lo que es el registro sale todo y aparentemento correcto.Lo que quiero hacer ahora es loguearme es decir q pidiendo el dni y el password me diga que estoy registrado y en caso contrario que me envia a el regitro de formulario.
tengo esto de codigo en asp:
<HTML>
<HEAD>
<TITLE>Modificar Datos Cliente</TITLE>
<link href="file:///F|/river/estilo.css" type="text/css" rel="stylesheet">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">body,td,th {
color: #000000;
}
body {
background-color: #999999;
}
</style></HEAD>
<BODY>
<P ALIGN="CENTER"> <H2> Datos del
Cliente </H2> </P>
<TABLE>
<%
dim dni, clave
dni = Request.Form("dni")
codigo = Request.Form("password")
dim sSQL, rs
dim strConnect
dim cn
strConnect="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\Formulario.mdb")
'Antes de nada hay que instanciar el objeto Connection
Set cn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
cn.Open strConnect
rs.Open "datospersonales", strConnect
'rs contiene la informacion de la tabla de los datos de los usuarios
sSQL="SELECT * FROM datospersonales WHERE (dni LIKE '%"&dni&"%') AND (clave LIKE '%"&codigo&"%')"
set rs=cn.Execute(sSQL)
%>
<BR><FONT FACE="Verdana, Times New Roman" SIZE="-1">
Su compra se ha realizado con éxito.
<P ALIGN="CENTER"><A HREF="file:///F|/river/registro UsuarioBUENO.html">Nuevos
Datos</A></P>
<%
else
%>
<P><FONT FACE="Verdana, Times New Roman" size="+2" COLOR="#FF0000"><BR><BR> &n bsp;
Los datos indicados no son correctos. </P></FONT>
<P ALIGN="CENTER"><A HREF="file:///F|/river/modificar UsuarioBUENO.html">Vuelva a intentarlo</A></P>
<%
end if
'Cerramos el sistema de conexion
cn.Close
set cn = Nothing
%>
</TABLE>
<P><BR>
</P>
</BODY>
</HTML> |