Ayuda con script de sesion de usuarios

[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
%>