Trabajar con frames
Agustin
08 de Marzo del 2004
Hola. necesito redireccionar una pagina asp hacia un frameset. El relajo esta así, tengo una pagina dividida en 3 fremeset (encabezado, indice, contenido) en la de contenido cargo la pagina para pedir el acceso si se llenan los campos la envío a otra pagina para comparar los datos con la BD si tiene permiso la redirecciona a la pagina donde realizara las operaciones pero quiero que esta pagina se carge en el frameset contenido y cargar otra pagina donde cambie el contenido del indice y por su puesto quiero que se cargue en el frame set indice, espero haberme explicado, aqui les doy el codigo donde redirecciono la pagina. gracias.
<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
%>
<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
%>
AGUSTIN
08 de Marzo del 2004
ya esta solucionado gracias
deiro g anacona
08 de Marzo del 2004
hola solicitamos la pagina, con la que cargaste informacion necesaria con respecto a vinculos en frames,
por tu colaboracion prestada mil gracias..
por tu colaboracion prestada mil gracias..