
19/11/2003, 11:46
|
| | Fecha de Ingreso: noviembre-2003 Ubicación: Tenerife
Mensajes: 8
Antigüedad: 21 años, 5 meses Puntos: 0 | |
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">
<!--DWLayoutTable-->
<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 |