Estimado amigo si quieres prueba con este codigo en asp.
lo que tienes es que cambiar lo que esta en el response.redirect cambialo por lo que tu necesitas este es el codigo espero que te 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>