Tienes razón mil disculpas, ahi va lo que he hecho:
<%
'Dim usuario, password, oConn, RS
txtusuario = CStr(Request.Form("usuario"))
password = CStr(Request.Form("clave"))
If CStr(Request.Form("usuario")) = "" OR CStr(Request.Form("clave")) = "" then
Response.Redirect "acceso.htm"
Else
DBFile="D:\Inetpub\..........y el resto\socios.mdb"
Set oConn = Server.CreateObject ("ADODB.Connection")
basedatos.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBFile
Set RS = Server.CreateObject ("ADODB.RecordSet")
wstr2 = "SELECT usuarios.usuario, usuarios.clave "
wstr2 = wstr2 & "FROM usuarios "
wstr2 = wstr2 & "WHERE (((usuarios.usuario)='" & txtusuario & "') AND ((usuarios.clave)='" & password & "')) "
'response.write wstr2
myR2Set.Open wstr2, basedatos, 3, 3
If (RS.EOF = true) then
Response.Write "Ese usuario no existe"
ElseIf RS.Fields("clave") = password then
Response.Write "Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
mnivel=nivel
Response.Redirect("usuarios.htm")
Else
Response.Write "Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
