Hola .... otra vez por aquí.,
tengo el siguiente codigo que me funciona perfectamente en una base de datos.
Pero yo quisiera que buscara en directorios y subdirectorios: me pueden echar una mano y decirme que debo modificar ??? o si hay algun post que haga referencia a este tema ???
<TABLE WIDTH="98%"><TR><TD>
<form method="Post" action="buscaraudio.asp">
<p align="center"><font size="1"><input type="text" name="palabra" size="20">
<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"> <b>Audio</font></b></p></form>
<p><font face="Tahoma" size="2">Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>
<%
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("/mdb-database/audio.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
%>
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
</table>
<%
Else
%>
<div align="left">
<table border="0" cellspacing="0" width="70%">
<tr>
<td width="65%" height="10">
<p align="center"><strong><font face="Tahoma" size="2">Portadas</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="35%" height="10">
<p align="left"><a href="<%=Tabla.Fields("url")%>"><%=Tabla.Fields("p al")%></font></td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</div>
<p align="center"><font face="Tahoma" size="2">Busquedas 2004</font></p>
</TD></TR></TABLE>
gracias
