Les estoy enviando el codigo fuente. espero que les funcione.
<%
dim Ruta
dim rs
dim Sqltxt
Dim conn
If request.form("Usuario")="" Then%>
<body bgcolor="#FF6633"><Form method="post" action="login.asp">
<P aling="center" align="center">
<%Request.querystring("msg")%><div aling="Center">
<Center><table border= 1>
<p align="center"> </p>
<tr>
<td>
<div align="center"><font size="4">Usuario:
<input type="text" name="Usuario">
</font></div>
</td>
</tr>
<tr>
<td>
<div align="center"><font size="4">Clave:</font>
<input type="Password" name="Clave">
</div>
</td>
</tr>
<tr>
<td>
<div align="center">
<input type="Submit" Value="Aceptar" name="B1">
</div>
</tr>
<div align="center"></td></div>
<div align="center"><table></div>
<div align="center"></center></div>
<div align="center"></div></div>
<div align="center"></form></div>
<div align="center">
</center>
<%Else
Usuario=replace(request.form("Usuario"),"","")
Clave=replace(request.form("Clave"),"","")
Ruta=Server.MapPath("Usuarios.mdb")
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Ruta
Set rs=conn.execute("Select * From Datos where Usuario='"&Usuario&"' and Clave='"&Clave&"'")
'response.write Sqltxt
'rs.open.execute Sqlxt,conn
If not Rs.eof Then
'Nos a de vuelto un registro
If Rs("Usuario")=Usuario and Rs("Clave")=Clave Then
Session("nivel")=1
Response.redirect"principal.htm"
end if
Else
session("nivel")=-1
End if
'Resultado.close
Set Resultado=Nothing
Set conn=Nothing
If session("nivel")=-1 or session("nivel")="" Then
'response.redirect"login.asp?msg=Usuario%20%20Clav e%20incorrecta"
Response.redirect"error.htm"
end if
end if%>
</div>