HOLA AMIGOS. NECESITO UNA PEQUEÑA AYUDA :) TENGO PROBLEMA CON EL INICIO DE SESION, LO Q PASA ES Q AL INGRESAR EL USER Y EL PASS EN EL FORM, EL CODIGO SOLO ME LEE EL USER PERO NO EL PASS, OSEA ME LEE SOLO UN DATO Y NO LOS 2 Y LUEGO CUANDO LE DOY ACEPTAR ME SALE CLAVE INCORRECTA, A PESAR DE Q LA CLAVE ESTA CORRECTAMENTE ESCRITA. AKI LES DEJO EL CODIGO Y SI LO CHEKEAN BAKN...
<%@ Language="VBScript" %>
<% Option Explicit %>
<%
Dim user, pass
user = LCASE(Request.Form("txtUs"))
pass = Request.Form("txtPas")
%>
<!--#include file="dbConexion.asp"-->
<%
IF user = "" Then
error("emptyuname")
ELSEIF pass = "" then
error("emptypasss")
ELSE
Dim sql,rsUser,luser,lpass
sql = "SELECT NombUsuario,Clave FROM Usuario WHERE NombUsuario = '" & user & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conexion, 3, 3
IF NOT rsUser.BOF AND NOT rsUser.EOF Then
luser = rsUser("NombUsuario")
lpass = rsUser("Clave")
rsUser.close
set rsUser = nothing
IF luser = user and lpass = pass Then
Session("txtUs") = luser
Response.Redirect("Index.asp")
ELSE
error("wrongp")
END IF
ELSE
error("wrongu")
END IF
END IF
%>
<%
conexion.close
set conexion = nothing
%>
<%FUNCTION error(calltype)%>
<br><br><br>
<table Align="center" vAlign="center" width="500">
<tr>
<td Align="center">
<h3>ERROR DE LOGEO!</h3>
</td>
</tr>
<tr>
<td Align="center">
<%IF calltype = "emptyuname" Then%>
<font size="2">Ese usuario no existe</font>
<%ELSEIF calltype = "emptypass" Then%>
<font size="2">No hay clave para ese usuario</font>
<%ELSEIF calltype = "wrongp" Then%>
<font size="2">Clave incorrecta</font>
<%ELSEIF calltype = "wrongu" Then%>
<font size="2">Nombre de Usuario incorrecto</font>
<%END IF%>
</td>
</tr>
</table>
<br><center><a href="javascript
:history.back()"> Click para volver a logearse!</a> </center>
<%END FUNCTION%>
PORFA AMIGOS, NECESITO ESO URGENTE, CUALQUIER SOLUCIION ES ACEPTADA ;) JEJE GRACIAS MANOS!....
[email protected]