Buscador bajo frame

danielm · #1 (**permalink**) 19/11/2003, 11:30

Hola,

La ayuda que necesitaría es para un error que tengo cuando ejecuto un buscador en ASP bajo una frame.
No soy un experto en ASP por lo que se me escapa de las manos.

El buscador es muy sencillo, solo lee una tabla de la base de datos buscando la palabra que se ha introducido en el campo de texto. Cuando se ejecuta solo la página que contiene el campo de texto y se realiza una busqueda, lo hace sin problemas. Pero cuando se ejecuta bajo un frame, me muestra toda la construcción de la página, sin tomar en cuenta las variables y sin buscar nada en la mdb.

No se cual puede ser el fallo. Ya le he indicado que el destino es el "mainFrame", pero no sirve de nada.
¿Me podeís ayudar?

Bluesman74cl · #2 (**permalink**) 19/11/2003, 11:34

por favor..postea el código....desafortunadamente..no tenemos bolas de cristal

danielm · #3 (**permalink**) 19/11/2003, 11:46

OK...
El frame se compone de superior.htm y principal.htm.
Principal.htm es el que realiza la busqueda. Es el "mainFrame".

--- Esta es la parte que envía la busqueda ---

<form action="buscar.asp" method="Post">
<td width="326" align="right" valign="middle">
<font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong>Buscar: </strong></font>
<input name="palabra" type="text" id="palabra" size="25">
<input name="buscar" type="submit" id="buscar" value=">>"> </a>

Luego busca en el archivo busca.asp y muestra el resultado
--- Y este es el cuerpo del archivo ---
<html>
<head>
<title>Resultados de busqueda</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#666666">
<div align="left">
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("db/busqueda.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
</div>
<p align="left"><font color="#FFFFFF" size="2" face="Tahoma">No se ha encontrado
nada con <strong>"<%=Request("palabra")%>"</strong> en la Base de Datos</font></p>
<div align="left">
<%
Else
%>
<table border="1" cellpadding="0" cellspacing="0" width="781" height="74" bordercolor="#C0C0C0">

<tr>
<td width="149" height="21" valign="top" bgcolor="#4B4B4B"> <p align="center"><strong><font color="#FFFFFF" size="2" face="Tahoma">Categoria</font></strong>
</td>
<td width="201" valign="top" bgcolor="#4B4B4B"> <p align="center"><strong><font color="#FFFFFF" size="2" face="Tahoma">Nombre
de la pagina</font></strong></p></td>
<td width="423" valign="top" bgcolor="#4B4B4B"> <p align="center"><strong><font color="#FFFFFF" size="2" face="Tahoma">Descripcion</font></strong>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td height="51" align="center" valign="middle" bgcolor="#F55300">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Categoria")%></font></td>
<td align="center" valign="middle" bgcolor="#F55300">
<p align="center"><a href="<%=Tabla.Fields("url")%>"><font face="Tahoma" size="2"><%=Tabla.Fields("Nombre")%></font></a></td>
<td align="center" valign="middle" bgcolor="#F55300">
<p align="center"><font face="Tahoma" size="2"><%=Tabla.Fields("Des")%></font></td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</div>
</body>
</html>

Espero que esto ayude algo...
Gracias de antemano