Redireccionar
Publicado por Agustin (3 intervenciones) el 29/08/2003 05:01:43
Tengo una pagina dividida en tres frames, una de encabezado otra de indice y una donde se introduce los datos para la BD. Estos datos son enviados a otra página para ver si existen de lo contrario mando un mensaje pero si exite redirecciona la pagina. ahi est ael problema por que la pagina que quiero redireccionar la quiero colocar en otro frame hay le va un poco del codigo.
<body>
<%
Fic = Request.Form("Ficha")
Pw = Request.Form("Pwd")
If Fic="" Then
Mensaje = "La Ficha No Ha Sido Ingresada..Verifique"
Else
If Pw="" Then
Mensaje = "La Contraseña No Ha Sido
Ingresada..Verifique"
Else
'Verificando el Usuario con la Base de Datos
Set Cn = Server.CreateObject("ADODB.Connection")
With Cn
.Provider = "MSDAORA"
.ConnectionString = "User
ID=CC;Password=Cons;Data
Source=ekbPRUEBA;"
.Open
'Response.Write("Conexión DB OK")
End With
Set Rs= Cn.Execute("Select * From Tab_Usuarios Where Id_Usuario='" & Fic & "' and Pwd='" & Pw & "'")
If Rs.Eof Then
Mensaje = "No se ha encontrado este Usuario o la
contraseña no es correcta..Verifique!"
Else
If Rs.Fields("Tipo") = "A" Then Application("Entrar")= "SI"
Response.Redirect("Indice_administrador.asp")
End If
End If
End If
End If
%>
como veran redirecciona con response.redirect("Indice_administrador.asp") pero no puedo indicar el frame en la que se va a cargar. siempre se carga en el frame contenido y quiero que se carge en el frame indice. gracias y saludos
<body>
<%
Fic = Request.Form("Ficha")
Pw = Request.Form("Pwd")
If Fic="" Then
Mensaje = "La Ficha No Ha Sido Ingresada..Verifique"
Else
If Pw="" Then
Mensaje = "La Contraseña No Ha Sido
Ingresada..Verifique"
Else
'Verificando el Usuario con la Base de Datos
Set Cn = Server.CreateObject("ADODB.Connection")
With Cn
.Provider = "MSDAORA"
.ConnectionString = "User
ID=CC;Password=Cons;Data
Source=ekbPRUEBA;"
.Open
'Response.Write("Conexión DB OK")
End With
Set Rs= Cn.Execute("Select * From Tab_Usuarios Where Id_Usuario='" & Fic & "' and Pwd='" & Pw & "'")
If Rs.Eof Then
Mensaje = "No se ha encontrado este Usuario o la
contraseña no es correcta..Verifique!"
Else
If Rs.Fields("Tipo") = "A" Then Application("Entrar")= "SI"
Response.Redirect("Indice_administrador.asp")
End If
End If
End If
End If
%>
como veran redirecciona con response.redirect("Indice_administrador.asp") pero no puedo indicar el frame en la que se va a cargar. siempre se carga en el frame contenido y quiero que se carge en el frame indice. gracias y saludos
Valora esta pregunta
0