Ver Mensaje Individual
  #7 (permalink)  
Antiguo 04/02/2005, 08:26
ser31
 
Fecha de Ingreso: enero-2005
Mensajes: 21
Antigüedad: 20 años, 3 meses
Puntos: 0
sigue sin funcionar, pasteo el código para que veais:

%
Dim usuario, password, oConn, RS
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.Redirect "introduccion.html"
Else
usuario = Trim(Request.Form("usuario"))
password = Trim(Request.Form("password"))
usuario = Replace(usuario,"'","''")
password = Replace(password,"'","''")

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath(".../data/usuarios.mdb")

sql = "SELECT * FROM usuarios WHERE usuario = '"& usuario &"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

If (RS.EOF = true) then
Response.Redirect "usuario no correcto.asp"
ElseIf RS.Fields("password") = password then 'Si el campo de la tabla es igual a nuestra variable, estas logueado.
Response.Write "Bienvenido <B>"& usuario &"</B>"
Else
Response.write("<script language='JavaScript'>window.open('contraseña_no_c orrecta.asp')</script>");


End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>

no va el reponse.write, me da error