problema con login en nueva ventana
Hola tengo el siguiente codigo en login.asp
<%
Dim usuario, password, oConn, RS, rellenar
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.write Rellena los campos usuario y contraseña
Else
usuario = replace(Trim(Request.Form("usuario")),"'","")
password = replace(Trim(Request.Form("password")),"'","")
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/xxx.mdb")
sql = "SELECT * FROM uce WHERE usuario='"&usuario&"'"
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
ElseIf RS.Fields("password") = password then
'Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Response.redirect "xxx.asp"
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
y el resultado siempre se me muestra en una ventana nueva, el problema esta en html el codigo es:
<FORM ACTION="login.asp" METHOD="post" style="line-height: 100%">
<br>
Usuario:<INPUT NAME="usuario" SIZE="8">
<br>
Contraseña:<INPUT NAME="password" SIZE="8" type="password"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
Como puedo indicar ke el resultado del login.asp se muestre en la misma ventana, la principal se llama menu.asp
<%
Dim usuario, password, oConn, RS, rellenar
If Request.Form("usuario") = "" OR Request.Form("password") = "" then
Response.write Rellena los campos usuario y contraseña
Else
usuario = replace(Trim(Request.Form("usuario")),"'","")
password = replace(Trim(Request.Form("password")),"'","")
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxx/xxx.mdb")
sql = "SELECT * FROM uce WHERE usuario='"&usuario&"'"
RS.Open sql, oConn, 1, 1
If RS.EOF = True then
Response.Write "<BR>Ese usuario no existe"
ElseIf RS.Fields("password") = password then
'Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B>"
Response.redirect "xxx.asp"
Else
Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado"
End If
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
y el resultado siempre se me muestra en una ventana nueva, el problema esta en html el codigo es:
<FORM ACTION="login.asp" METHOD="post" style="line-height: 100%">
<br>
Usuario:<INPUT NAME="usuario" SIZE="8">
<br>
Contraseña:<INPUT NAME="password" SIZE="8" type="password"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
Como puedo indicar ke el resultado del login.asp se muestre en la misma ventana, la principal se llama menu.asp