04/01/2002, 20:41
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 31
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Re: error
que tal, mira te pongo el codigo de la page, es otra page pero con el mismo error pero en la linea 35:
<HTML>
<HEAD>
<TITLE>LOGIN</TITLE>
</HEAD>
<BODY>
<%
'Recogemos los valores del formulario
usuario=Request.Form("usuario")
pass=Request.Form("pass")
Dim basedatos
basedatos = Server.MapPath("database/usuarios.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
sSQL="Select * From usuarios where usuario='"&usuario&"' and pass= '"&pass&"'"
Set RS = Conn.Execute(sSQL)
%>
<%
If RS("usuario")=usuario And RS("pass")=pass Then
%>
<p><font aling="center">Bienvenido <%=RS("usuario")%>!</font></p>
<p><font>Estos son tus datos:</font></p>
<p><font size="5" face="Arial">Nombre: <%=RS("nombre")%></font></p>
<p><font size="5" face="Arial">Apellido: <%=RS("apellido")%></font></p>
<p><font size="5" face="Arial">Nombre de Usuario: <%=RS("usuario")%></font></p>
<p><font size="5" face="Arial">Contraseña: <%=RS("pass")%></font></p>
<%
ElseIf RS("usuario")<>usuario Or RS("pass")<>pass Then
Response.Write("Usuario o Contraseña incorrectos")
End If
Conn.Close
%>
</BODY>
</HTML> |