Pagina de logeo

[Sonda]

Necesito de vuestra ayuda!!!
Tengo este script para una paginita de logeo, el inconveniente es que no me puedo logear con más de un usuario siempre toma nada más que uno me podrían ayudar?
Gracias.

Código ASP:

function stripQuotes(strWords) 
stripQuotes = replace(strWords, "'", "''") 
end function 
function sanitize(strWords) 
 
dim badChars 
dim newChars 
 
badChars = array("select", "drop", ";", "--", "insert", "delete", "xp_", "#", "%", "&", "'", ";", "=", "?", "`", "|") 
newChars = strWords 
 
for i = 0 to uBound(badChars) 
newChars = replace(newChars, badChars(i) , "") 
next 
 
sanitize = newChars 
 
end function 
 
if Request.ServerVariables("REQUEST_METHOD") = "POST" Then
strUser = sanitize( request.form("user") )
strPass = sanitize( request.Form("pass") )
 
strSQL = "SELECT * FROM T_USERS"
 
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = strConn
Rs.Source = strSQL
Rs.CursorType = 2
Rs.CursorLocation = 2
Rs.LockType = 1
Rs.Open()
 
Rs.MoveFirst
While Not Rs.EOF
 
if strUser = rs("usuario") AND strPass = rs("contrasena") Then
userFound = 1
theUser = rs("usuario")
else
userFound = 0
End if
Rs.MoveNext
 
Wend
 
Rs.close()
set Rs = nothing
 
if userFound = 1 Then
Session("adminLogged") = true
Session("usuario") = theUser
response.Redirect("./?")
 
else
response.Redirect("login.asp?error=nouser")
end if
else
 

[jochesfor]

Sonda, estas sobrecargando a tu servidor de forma inecesaria, haces una consulta y luego buscas uno a uno, mejor agrega la busqueda a tu Select, asi:

strSQL = "SELECT Top 1 * FROM T_USERS WHERE usuario='"& strUser &"' AND contrasena='" & strPass & "'"

if Not Rs.EOF then
'es un usuario valido y realizas lo que quieras
else
'usuario invalido
end if

[Sonda]

Perfecto es verdad lo que decis jochesfor agradezco infinitamente tu ayuda. Abrazo.

[Sonda]

Me funciono de mil maravillas jochesfor quedo así entonces

Código ASP:

if Not Rs.EOF then
'es un usuario valido y realizas lo que quieras
 
if strUser = rs("usuario") AND strPass = rs("contrasena") Then
response.Redirect("./?")
 
Session("adminLogged") = true
Session("username") = theUser
end if 
 
else
'usuario invalido 
 
response.Redirect("login.asp?error=nouser")
end if
 
Rs.close()
set Rs = nothing
 

[jochesfor]

Con gusto, puedes agregarle antes de hacer la consulta esto:

Nombre=replace(TRIM(Nombre),"'","")
password=replace(TRIM(Clave),"'","")

para evitar el Sql Injection

[jochesfor]

Sonda, no veo tu codigo completo pero creo que esto te esta sobrando,
if strUser = rs("usuario") AND strPass = rs("contrasena") Then, esto ya lo hace la consulta y no es necesario volverlo a hacer.

[Sonda]

Si ya lo quite y agrege replace para evitar el Sql Injection, gracias jochesfor por tu gran ayuda. Abrazo