estoy haciendo un login con el siguiente codigo:
<%
user=Request.Form("user")
pass=Request.Form("pass")
'response.Write(user)
'response.Write(pass)
'
Set CONN = Server.CreateObject("ADODB.Connection")
Conn.open "base","",""
'
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "tabla"
Recordset1.Source = "SELECT * FROM dbo.tabla WHERE usuario = '" & user &"'
AND clave = '" & pass &"'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
cantidad = recordset1.recordcount
response.Write("La cantidad de registros es: ")
response.write(cantidad)
If Recordset1.RecordCount = 1 Then
' Session("sesion")=1
' Session("id")=rs.Fields("iduser").Value
' rs.Close
' Set rs = Nothing
' conn.Close
' Set conn = Nothing
'Response.Redirect(pagina.asp)
response.Write("logueado")
Else
' rs.Close
' Set rs = Nothing
' conn.Close
' Set conn = Nothing
' error="1"
' Response.Redirect("login.asp")
response.Write("no logueado")
End If
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
conn.Close
Set conn = Nothing
%>
Lo estoy armando con ayuda de macromedia dreamweaver, pero el problema es
que si pongo el usuario y la contraseña bien, el recordcount da -1 y me dice
"no logueado". Si los pongo mal, directamente no carga la pàgina.
Tambien cree dos registros iguales en la tabla y el recordset sigue
dando -1.
Estoy desde ayer y ya no se que hacer. Algun consejo??
Leer las respuestas