Ayuda con LOGIN!!!!

[bare87]

Que tal a todos, estoy haciendo un mini sitio en asp y tengo una duda.
tengo una pagina principal llamada index.asp, alli cuento con 2 cajas de texto, una para el usuario y otra para el password.
en fin, necesito loguearme de alli a otra pagina pero con los datos de una tabla q esta en una BD en SQL.

ya tengo la conexion hecha, con el obj recordset y todo, tambien tengo la tabla con los datos, no se porque no funciona, aqui les pongo el codigo donde valido los datos:



<!--#include file="conexion.asp"-->





<%

usuario = Trim(Request.Form("txtusuario2"))
password = Trim(Request.Form("txtpassword2"))

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT usuario, secreta FROM dbo.login WHERE usuario ='" & usuario & "' AND secreta ='" & password & "'", ConnSQL2005, 2, 4


' ***************************** COMPROBAR QUE EXISTAN DATOS
IF (rs.BOF) AND (rs.EOF) THEN
rs.Close
Set rs = Nothing
Set rs = Nothing
Set ConnSQL2005 = Nothing
Response.Redirect("menu.asp")
ELSE

' ***************************** CERRAMOS EL OBJETO RECORDSET
rs.Close
ConnSQL2005.Close
Set rs = Nothing
Set ConnSQL2005 = Nothing

Response.Redirect("index.asp")

END IF

%>



al dar click al boton de enviar, no me muestra la pagina, y ps creo q me tendria q mandar a la de menu.asp.

en el codigo de index.asp, ya tengo en action el nombre de la pagina donde esta este codigo, que es valida.asp.

<form id="frmestacion" name="frmestacion" method="post" action="valida.asp">

no se si me di a entender, espero y me puedan ayudar..

Saludos

[Adler]

Hola

Veamos esta condición

Código asp:

IF (rs.BOF) AND (rs.EOF) THEN 'está diciendo que si no encuentra concordancia 
rs.Close
Set rs = Nothing
ConnSQL2005.Close
Set ConnSQL2005 = Nothing
Response.Redirect("menu.asp")
 
ELSE ' si encuentra concordancia
rs.Close
ConnSQL2005.Close
Set rs = Nothing
Set ConnSQL2005 = Nothing
Response.Redirect("index.asp")
 

¿Eso es lo que quieres que ocurra?
En cuanto a los cursores, sobre todo el cerrojo , es un poco raro que uses ese. Echale un vistazo a esto

Suerte

[Myakire]

A veer, limpiemos un poco tu codigo:

Código:

<%
...
usuario = Trim(Request.Form("txtusuario2"))
password = Trim(Request.Form("txtpassword2"))

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "SELECT usuario, secreta FROM dbo.login WHERE usuario ='" & usuario & "' AND secreta ='" & password & "'", ConnSQL2005

existenDatos =  rs.EOF

rs.Close
Set rs = Nothing
Set ConnSQL2005 = Nothing

if existenDatos Then
   Response.Redirect("index.asp")
Else
   Response.Redirect("menu.asp")
End If
%>

Ok, como puedes ver, si se entra a esta pagina, de que se va a algun lado, se va. Ahora, que significa eso de que no te muestra la pagina?

[bare87]

Que tal amigos, antes q nada les quiero agradecer por sus respuestas.
fijense q probe con sus codigos y no me funciono, asi que intente hacerlo funcionar dejando todas mis paginas en una sola carpeta, llamada "pags".
hice eso y me funciono de maravilla, asi q me di cuenta de mi error:

en el objeto action, lo tenia asi:

action="valida.asp"

cuando tenia q ser asi:

action="pags/valida.asp"

por eso no me mostraba la pagina, ya que queria accesar a una pagina q no existia, ya q valida.asp no estaba en la misma carpeta del index, sino en pags.

De todas maneras de no haber recurrido a este foro no me habria dado cuenta de mi error, supongo q cai un poco en la desesperacion, ya que este mini sitio es parte de un examen q tengo q entregar en un par de dias y estoy algo confundido.
Solo me resta darles las gracias, y decirles que seguire necesitando de su ayuda, ya que tengo algunos problemillas con los list/menu.
en fin, ese sera otro post.

MUCHAS GRACIAS .....