Ver Mensaje Individual
  #10 (permalink)  
Antiguo 07/02/2006, 10:05
Avatar de FiNo
FiNo
 
Fecha de Ingreso: octubre-2004
Ubicación: Costa Rica
Mensajes: 265
Antigüedad: 20 años, 6 meses
Puntos: 1
Intenta con esto:

<%
IF (Request.Form("contraseña") <> "") or (Request.Form("usuario") <> "") 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"

usuario = Request.Form("usuario")
pass = Request.Form("contraseña")

SQL = "SELECT pass FROM prueba WHERE usuario = '"&usuario&"' AND pass = '"&pass&"'"
Set rs = Conn.Execute(SQL)
If not rs.EOF THen
Response.Write("Bien?")
else
Response.Redirect("form_ingresar.asp")
End IF
End IF
%>
'-----Fin--------
__________________
3S-CRM