Foros del Web » Programando para Internet » ASP Clásico »

alguien se atreve con esto?

Estas en el tema de alguien se atreve con esto? en el foro de ASP Clásico en Foros del Web. Hola .... otra vez por aquí., tengo el siguiente codigo que me funciona perfectamente en una base de datos. Pero yo quisiera que buscara en ...
  #1 (permalink)  
Antiguo 07/05/2004, 03:36
Avatar de eeeee  
Fecha de Ingreso: febrero-2004
Ubicación: Almería
Mensajes: 397
Antigüedad: 20 años, 3 meses
Puntos: 0
Pregunta alguien se atreve con esto?

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
  #2 (permalink)  
Antiguo 08/05/2004, 06:34
Avatar de eeeee  
Fecha de Ingreso: febrero-2004
Ubicación: Almería
Mensajes: 397
Antigüedad: 20 años, 3 meses
Puntos: 0
nadie es capaz de echarme una mano?
__________________
Eusol .............
aprendiendo de ustedes
________________________

http://www.alicun.com
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 23:13.