comprobar nombre y contraseña

atrio
08 de Abril del 2004
lo que voy a pedir es bastante facil pero no me sale.
Tengo una base de datosen acces y lo unoico que quiero es que me compruebe el nombre y la contraseña y si esta bien que se habra una pagina y si esta mal otra.
Se q es facil pero no m sale ni de coña!!!
gracias y exarme una manita please!!!

noodles_v2
08 de Abril del 2004
Espero te ayude este codigo tan solo comprueba donde se direccionan los URL's para que pongas las paginas que desees tambien que la bdse de datos en access sea igual al nombre de la tuya cualquier cosa si necesitas algo mas a fonfo mandame un mail

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/cnxver1.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_cnxver1_STRING
Recordset1.Source = "SELECT * FROM password"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("Usuario"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="registra.asp"
MM_redirectLoginFailed="ninguna.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_cnxver1_STRING
MM_rsUser.Source = "SELECT User, Password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM password WHERE User='" & Replace(MM_valUsername,"'","''") &"' AND Password='" & Replace(Request.Form("Password"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="POST" action="<%=MM_LoginAction%>">
<div align="center">
<table width="28%" border="1" bordercolor="#FFFFFF">
<tr>
<td>Usuario</td>
<td><input name="Usuario" type="text" id="Usuario"></td>
</tr>
<tr>
<td>Password</td>
<td><input name="Password" type="password" id="Password"></td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Entrar">
</p>
</div>
</form>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>