Aqui tienes un ejm. espero te sirva
<%
Usuario=Trim(Request("txtUsuario"))
Pwd=Trim(Request("txtPwd"))
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.ConnectionTimeout = 15
Cn.CommandTimeout = 15
Cn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\SPDB\Usuarios.mdb"))
Set Rs=cn.Execute("Select Usuario,Password from Users where User='"& Usuario &"'" )
If Not Rs.EOF Then
If Pwd=Password then
Response.Redirect ("tupagina_sgte.asp")
Else
Msg="<Table align='Center' Border='0' bgcolor='white' width='58%'><tr><td width='100%'><p align='center'><font color='red'><b>Clave Incorrecta !!! para el Usuario " & Usuario &" </b></font></td></tr></table>"
End IF
Else
Msg="<Table align='Center' Border='0' bgcolor='white' width='58%'><tr><td width='100%'><p align='center'><font color='red'><b>Usuario " & Usuario & " No Existe !!!</b></font></td></tr></table>"
End If
<html>
<body>
<form name="frmIngresos" method="POST" action="Default.asp">
<p> </p>
<p> </p>
<%Response.Write Msg %>
</body>
</html>
Hasta Pronto
