Tengo un problema con este còdigo..., me està volviendo loco y no se que es...
Me dice que falta una instrucciòn en la ùltima linea o que el objeto de la linea 25 todavìa esta abierto
AYUDA!!!!!!!!!!!!!
<%
IF Request.Form("usuario")="" AND request.form("password")="" THEN
%>
<%
ELSE
'Session("usuario")=request.form("n om1")
'Session("password")=request.form(" nom2")
Set oConn = Server.CreateObject ("ADODB.Connection")
Set rs = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usuarios.mdb")
sql = "SELECT * FROM Tabla1 WHERE usuario ='" & Request.Form("usuario") & "' AND password = '" & Request.Form("password") & "';"
oConn.Open "conexionabd","","&quo t;
rs.Open sql, oConn,2,2
IF NOT(rs.BOF AND rs.EOF) THEN
Dim aceptado
Session("aceptado")="SI"
Response.redirect "bienvenido.asp"
ELSE
response.redirect "loguin.asp"
END IF
END IF
rs.close
oConn.close
sql.close
END IF
%>
