Hola a todos!!
Mi problema está referido a una consulta sobre la BD de un usuario que ya está registrado. Mi codigo funciona bien en cuanto a verificar ambos campos pero necesito que lo haga sobre un tercero (y que no está en el form de login) y que debe contener un SI para darle el acceso, caso contrario iria un response.write.
Copio el codigo que tengo hasta ahora (que funciona) y donde debería realizar esa otra consulta. Este campo se llama ACTIVO y puede estar vacío o con un SI.
<%
Dim usuario, passw, oConn, RS
If Request.Form("usuario") = "" OR Request.Form("passw") = "" then
Response.Write("<BR>")
Response.Write("<BR>")
Response.write "<a href=login.asp><B><center>Todos los campos son requeridos <br><center> Click Aqui para Volver</B></a>"
Else
usuario = Trim(Request.Form("usuario"))
passw = Trim(Request.Form("passw"))
usuario = Replace(usuario,"'","''")
passw = Replace(passw,"'","''")
'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\misitio\misitio.com\db \datos.mdb;"
'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM usuarios WHERE Usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
session("autorizacion")=-1
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write "<B><center>Click Este Usuario no existe</B>"
Response.Write("<BR>")
Response.write "<a href=login.asp><B><center>Click Aqui para Volver</B></a>"
ElseIf RS.Fields("contrasena") = passw then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
session("Nombre")=request("usuario")
session("autoriz")=1
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write "<B><center>Gracias por su visita "& RS.Fields("Usuario") &"</B>"
Response.Write("<BR>")
Response.Write("<BR>")
Response.write "<a href=clicks.asp?url=descargas.asp><B><center>Click Aqui para Continuar</B></a>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
session("autoriz")=-1
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write("<BR>")
Response.Write "<B><center>El password ingresado es incorrecto</B>"
Response.Write("<BR>")
Response.write "<a href=login.asp><B><center>Click Aqui para Volver</B></a>"
End If
'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
Como siempre, agradezco anticipadamente todas las sugerencias que siempre me resultan de m ucha utilidad...
Edysierra