mmm...
no se si hoy ando medio lento para mis respuestas o definitivamente no te estoy captando la idea.
1.- haces un <select> para mostrar todos los usuarios registrados en tu sistema y que solo ingresen la contraseña!!! ( no te lo recomiendo para nada ).
solucion (espero que sea buena para ti
).
<body>
<!--- PRIMERA PARTE EL FORMULARIO --->
<form method="get" action="default.asp">
Login <input type="text" name="login" size="20"><br>
Clave<input type="password" name="pws" size="20"><br>
<%=session("msn")%><br>
<input type="submit" value="Enviar" name="B1">
</form>
<%
'--- SEGUNDA PARTE RECEPCION DE LA INFORMACION ----
if request("login") <> "" or request("pws") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = adModeReadWrite
Conn.Open "Driver={SQL Server};SERVER=10.1.1.1; DATABASE=TuBD;UID=usr;PWD=psw"
'------ayuda para el sql injection
'puedes buscar unas funciones muy buenas con respecto a sqlinjection
usuario = replace(Request("usuario"),"'","")
pass = replace(Request("pws"),"'","")
response.write "usuario :" & usuario &"<br> clave"& pass
SQL = "SELECT pass FROM prueba WHERE usuario = '"&usuario&"' AND pass = '"&pass&"'"
' como no esta funcionando tu programa pon esto y en el foro colocas el error
on error resume next
Set rs = Conn.Execute(SQL)
if err <> 0 then
response.write("Debora se ha producido el siguente error : <br>"&err.description)
else
If not rs.EOF THen
Response.Write("Bien?")
else
'-> Vamos a decirle al usuario que se equivoco para que se de cta que la pag esta funcionando
session("msn") = "Sus datos no son correctos<br>Intente Nuevamente"
Response.Redirect("default.asp")
End IF
end if '->fin de control de error
End IF
%>
end if
%>
</body>