Buscador

[Artepop]

Hola, tengo una base de datos llamada 'directorio' la cual tiene diferentes tablas: 'arte_cultura','internet_ordenadores'....etc...

Luego desde diferentes páginas se llama a cada tabla de la base de datos para mostrar según categoria, hasta hay todo perfecto.

Todas las tablas independientemente del nombre tiene los campos:

Nombre
Correo
Titulo
URL
Categoria
Descripcion
Palabras
Fecha

Osea desde cada página del directorio se muestra cada tabla,....en este ejemplo llamo a la tabla 'politica_gobierno' desde la página 'politica_gobierno.asp' titulada Política y gobierno

Código:

<%
Dim oConn, rs, SQL
Dim PaginaActual
Dim PaginasTotales
Dim TamPagina
Dim CuantosRegistros
TamPagina=10
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("../../db/directorio.mdb")&";"
SQL="SELECT Titulo, URL, Descripcion, Fecha FROM politica_gobierno ORDER BY id DESC;"
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
rs.Open SQL, oConn, 1, 2
PaginasTotales=rs.PageCount
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
if PaginasTotales=0 then
Response.Write("<p class=""texto3"" align=""center""><b>No se encontraron resultados</b></p>")
else
rs.AbsolutePage=PaginaActual
Response.Write("<p class=""texto2"">P&aacute;gina " & PaginaActual & " de " & PaginasTotales & "</p>")
Response.Write("<table width=""540"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
Response.Write("<tr>")
Response.Write("<td width=""540"" height=""15"" background=""../imagenes/puntos.gif"">")
Response.Write("</td>")
Response.Write("</tr>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write("<tr>"&VbCrLf)
Response.Write("<td valign=""top"" width=""540"">")
Response.Write("<p class=""texto3"">")
Response.Write("<b>"&rs.Fields("Titulo")&"</b> Ingresada el "&rs.Fields("Fecha")&"<br>")
Response.Write(""&rs.Fields("Descripcion")&"<br>")
Response.Write("<b>URL</b>: <a target=""_brank"" href=""../enlaces_externos/default.asp?pagina="&rs.Fields("URL")&""">"&rs.Fields("URL")&"</a><br>")
Response.Write("</p>")
Response.Write("</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td width=""540"" height=""15"" background=""../imagenes/puntos.gif"">")
Response.Write("</td>")
Response.Write("</tr>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("</table>")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
Response.Write("<p class=""texto2"" align=""right"">")
if PaginaActual > 1 then
Response.Write("&laquo;&nbsp;[&nbsp;<a href=""politica_gobierno.asp?pagina="& PaginaActual-1& _
""">Anteriores</a>&nbsp;]")
end if
if PaginaActual < PaginasTotales then
Response.Write("&nbsp;[&nbsp;<a href=""politica_gobierno.asp?pagina=" & PaginaActual+1 & _ 
""">Siguientes</a>&nbsp;]&nbsp;&raquo;")
end if
%>

El problema es:

Si ven en cada apartado del directorio hay un formulario para llamar a una búsqueda:

Código:

<form method="post" action="buscado.asp">
<p class="texto2" align="center">
<b>Ingrese palabras a buscar</b> <input class="boton" type="text" name="palabra" size="20" maxlength ="150" onFocus="this.style.backgroundColor='#AABBCC'" onBlur="this.style.backgroundColor='#E2EDF7'"> <input class="boton" type="submit" name="Submit" value="Buscar" onMouseOut="this.style.backgroundColor='#E2EDF7';fuera(this);" onMouseOver="this.style.backgroundColor='#AABBCC';sobre(this);"> <a href="ingresar_url.asp"><b>Ingresar URL</b></a> &raquo;
</p>
</form>

Ok, lo que me falta es la página de recogida de la busqueda:
'buscado.asp' como llama el formulario.

Para mostrar de esta forma, ejemplo:

Artepop.com Ingresada el Martes 29 de Julio de 2003
Encontrado en la categoria de Arte y cultura
Galería de arte, obras pictóricas. Nueva versión en Flash.
URL: http://www.artepop.com/

Tendría que buscar en todas las tablas (categorias del directorio) de la base de datos 'directorio'


Me pueden ayudar, espero me haya explicado bien...

[lexus]

Baja este ejemplo, es muy similar a lo qeu deseas, asi podras documentarte y depronto te sirve algo de codigo..

http://www.webwizguide.info/asp/samp...ine_script.asp

[Artepop]

Me pueden poner un pequeño ejemplo de como recoger esto, Gracias de nuevo...