Mensajes en Asp al cambiar de Pagina y Regarme

[jwance]

Mensajes en Asp al cambiar de Pagina y Regrsarme

Tengo una pagina donde valida el Usario y contraseña login.asp

Al llenar los campos nos envia a una pantalla que se llama ejemplo: verificando.asp

Si no Encuentra envia un mensaje Verifique el Nombre de Usuario y Contraseña

y me regreso a la Pantalla Anterior.


EL problema es que no muestra el mensaje,Por que si no relaciona el usuario y contraseña me regresa
a la pantalla login.asp

como puedo hacer que aparesca este mensaje en la pagina login.asp?????

[JuanRAPerez]

sera que tienes un impirmir y un response redirect?

pega el código de verificando.asp

es mucho mas fácil ayudarte con el código

[posman]

Podrias hacer que verificando.asp envie un input en donde se indique si se pudo encontrar al usuario o no.

<input type="hidden" name="correcto" value="NO">

Esto lo haces si en verificando.asp rediriges con una forma y haciendole submit.
Pero si estas redirigiendo con un response.redirect, podrias utilizar response.redirect "login.asp?correcto=NO"

y en login.asp, al principio de la pagina revisar ese valor:

Código:

<%
  if UCASE(request("correcto")) = "NO" then
    response.write "tu mensaje de error"
  end if
%>

[jwance]

ahy va el codigo
<%
Rodillo = Request.Form("TxtRodillo")
Usuario = Request.Form("TxtUsuario")
Password = Request.Form("TxtContraseña")

Set CxnSql = Server.CreateObject("ADODB.Connection")
CxnSql.ConnectionString = sCnn
CxnSql.ConnectionTimeout = 10
CxnSql.Open

Set RsBus_Usuario = Server.CreateObject("ADODB.RecordSet")
RsBus_Usuario.Open "EXEC Sp_Buscar_Usuario @Usuario='" + Usuario + "',@Password= '" + Password + "'",CxnSql
IF RsBus_Usuario.EOF THEN
%>
<script language=javascript>
alert("Verifique el Nombre de Usuario y Contraseña")
</script>
<b>
<%

response.Redirect("Ajustes_Pass.asp")
END IF


%>

[JuanRAPerez]

tomare en cuenta el comentario de posman
has lo siguiente:

Código asp:

<%
Rodillo = Request.Form("TxtRodillo")
Usuario = Request.Form("TxtUsuario")
Password = Request.Form("TxtContraseña")
 
Set CxnSql = Server.CreateObject("ADODB.Connection")
CxnSql.ConnectionString = sCnn
CxnSql.ConnectionTimeout = 10
CxnSql.Open
 
Set RsBus_Usuario = Server.CreateObject("ADODB.RecordSet")
RsBus_Usuario.Open "EXEC Sp_Buscar_Usuario @Usuario='" + Usuario + "',@Password= '" + Password + "'",CxnSql
IF RsBus_Usuario.bof and RsBus_Usuario.EOF THEN
     response.write "entro en vacio o fin de archivo" 
else
     response.write "usuario existe" 
END IF
%>
 

primero verifiquemos en donde entra

[jwance]

cual es la funcion de
IF RsBus_Usuario.bof and RsBus_Usuario.EOF THEN

no la entiendo???

[Muzztein]

Iniciado por jwance

cual es la funcion de
IF RsBus_Usuario.bof and RsBus_Usuario.EOF THEN

no la entiendo???

http://www.forosdelweb.com/f15/difer...eof-bof-85980/