

Error de compilación de Microsoft VBScript error '800a0401'
Se esperaba un final de instrucción
/login.asp, línea 30
Set obj_Connection = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")
------------------------------------------------------------^
el codigo es este:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
IF Request.Form("login")="" AND request.form("password")="" THEN
%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="login.asp">
<p> login
<input name="login" type="text" id="login">
</p>
<p> password
<input name="password" type="text" id="password">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<p> </p>
<p>
<%
ELSE
Session("login")=request.form("login")
Session("password")=request.form("password")
Set obj_Connection = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.Recordset")
strSQL_N = "SELECT * FROM Usuarios WHERE login ='" & Request.Form("login") & "' AND password = '" & Request.Form("password") & "';"
obj_Connection.Open "Usuarios.mdb","",""
rs.Open strSQL_N, obj_Connection,2,2
IF NOT(rs.BOF AND rs.EOF) THEN
Dim aceptado
Session("aceptado")="SI"
Response.redirect "OK.asp"
ELSE
response.redirect "login.asp"
END IF
END IF
%>
</p>
</body>
</html>

