Ayuda con script de sesion de usuarios

[j_fco]

Hola amigos, estoy tratando de hacer un sistema de reconocimiento de usuarios, pero me manda el siguiente error:

:::::::::::::::::
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/Admin/verificar.asp, line 36
:::::::::::::::::

Les pongo el codigo del script:

::::::::::::::::

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2058" %>
<%
Dim usuario, password

If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "Administrador.htm"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
'defino las variables a utilizar
Dim oConn, sDSNDir, RS
Dim db_name, db_username, db_userpassword
Dim db_server, dsn_name
'defino el nombre del dsn
dsn_name = "access_catalogo.dsn"
'defino la ruta de acceso para la bd
sDSNDir = Server.MapPath("../_dsn")
'declaro el objeto de coneccion en el servidor
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "filedsn=" & sDSNDir & "\" & dsn_name
oConn.Open

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.ActiveConnection = oConn
RS.Source = "SELECT * FROM Usuarios WHERE usuario = '"& usuario &"'"

RS.CursorType = 3
RS.CursorLocation = 3
RS.LockType = 1
'aqui marca el error
RS.Open ()

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>

[trasgukabi]

Código:

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.ActiveConnection = oConn
sql = "SELECT * FROM Usuarios WHERE usuario = '"& usuario &"'"
response.write sql
response.end

escribe esto y pega aquí la salida

[jahman]

como se puede mostrar una lista de cuantos usuarios han iniciado sesion?
Gracias.

[trasgukabi]

Lo que Más me gusta de este foro es el sentido de CONTINUIDAD que tienen ciertos usuarios.

Busca en las FAQ, Jahman...

[jahman]

ja, en este caso la continuidad se referia a otro tema relacionado pero diferente punto, en fin enc uanto a la pregunta que realize lo resolvi creando una bandera en la tabla y ingresar 1 al logearse de este modo manejo el timeout y el deslogeo, pero aun me falta el manejo al cerrar la ventana, aunque me surgio una duda con el timeout..

que pasa con la session con timeout si el usuario cierra la ventana, sigue corriendo hasta los minutos que quedan o se cierra la session?

creen que esta es la forma mas conveniente para manejar y saber a los usuarios logeados??? ojala que me den sugerencias. Gracias.

[j_fco]

Les agradezco su ayuda, pero me entro virus y acabo de terminar de restablecer la maquina, agradezco mucho la ayuda con el codigo para sesion. Antes de haber visto sus respuestas, se me ocurrio cambiar el nombre de las variables y por alguna extraña razon quedo, aqui les pongo el codigo de como quedo y ya esta funcionando.

MIL GRACIAS de nueva cuenta.

:::::::::::::::::::::::::::::::::::::::::::

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" LCID="2058" %>
<%
Dim usuario, password

If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "Administrador.htm"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

'Conectamos a nuestra BD.
'defino las variables a utilizar
Dim oConn, sDSNDir, oRS
Dim db_name, db_username, db_userpassword
Dim db_server, dsn_name
'defino el nombre del dsn
dsn_name = "access_catalogo.dsn"
'defino la ruta de acceso para la bd
sDSNDir = Server.MapPath("../_dsn")
'declaro el objeto de coneccion en el servidor
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "filedsn=" & sDSNDir & "\" & dsn_name
oConn.Open

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
Set oRS = Server.CreateObject ("ADODB.RecordSet")
oRS.ActiveConnection = oConn
oRS.Source = "SELECT * FROM Usuarios WHERE Login = '"& usuario &"'"

oRS.CursorType = 3
oRS.CursorLocation = 3
oRS.LockType = 1
oRS.Open ()

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (oRS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf oRS.Fields("Contrasenia") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.

Session("usuario")=request.form("usuario")
Session("clave")=request.form("password")
Dim aceptado
Session("aceptado")="SI"

Response.Redirect("Menu.asp")


Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If

'Limpiamos y cerramos.
oRS.Close
oConn.Close
Set oRS = Nothing
Set oConn = Nothing
End If
%>