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

Insertar Buscador

Estas en el tema de Insertar Buscador en el foro de ASP Clásico en Foros del Web. Hola, ¿alguien podria indicarme lo que me falta para que cuando busque en mi db me devuelva los resultados en la misma pagina?. Aqui dejo ...
  #1 (permalink)  
Antiguo 11/04/2003, 19:37
 
Fecha de Ingreso: febrero-2003
Ubicación: Barcelona
Mensajes: 32
Antigüedad: 21 años, 4 meses
Puntos: 0
Insertar Buscador

Hola, ¿alguien podria indicarme lo que me falta para que cuando busque en mi db me devuelva los resultados en la misma pagina?.

Aqui dejo el codigo.

Gracias

<html>
<title>Orden</title>
<link rel="stylesheet" href="_main.css" type="text/css">
<body bgcolor="#FFFFFF">
<p align="center">&nbsp;</p>
<p align="left">&nbsp;
<table width="59%" border="0" align="center" bgcolor="#8CCCCA">
<tr>
<td width="30%" height="36">
<p align="center"><font face="Verdana"><b> LOGOTIPOS</b></font></p>
</td>
<td width="41%" valign="top" height="36">
<%
for counter = 65 to 90
' for next routine to create hyperlinks alphabetically targeted
' to the current page
%>
<a href="<%= request.servervariables("script_name")%>?u_letter= &#<%= counter %>;" class="select">
&#<%= counter %>;</a>
<% next %>
</td>
</tr>
<tr>
<td width="30%"><b>
<%
accessdb="dblogos"
if len(request.querystring("idlogo")) <> 0 then
set dbc = server.createobject("adodb.connection")
dbc.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath(accessdb)
sql = "select * from logotipos where id=" & request.querystring("idlogo")
set rst = dbc.execute(sql)
if not rst.eof then
%>
<img border=1 name="tumbail" width=200 height=200 src="<%=rst("tumbail_img")%>">
<%
end if
end if
%>
</b></td>
<td width="41%" valign="top">
<%
u_letter=trim(request.querystring("u_letter"))
'if the user clicked a link then search the db
if u_letter<>"" then
accessdb="dblogos"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")

sql = "select * from logotipos where left(logo,1)='"& u_letter &"' order by logo asc"

rs.Open sql, cn
'if the search ends in no results display a
'no results found mesage
if rs.eof then
%>
<div align="left"><font color="#FF0000"><b>No se han encontrado logos</b></font>
<%= u_letter %>
<% else
do while not rs.eof
'display all observations found
%>
<br>
<a href="default.asp?u_letter=<%=u_letter%>&IdLogo=<% =rs("id")%>"><%= rs("logo")%></a>
<%
rs.movenext
loop
end if ' end check for obs
end if ' end check for user input
%>
</div>
</td>
</tr>
<tr>
<td width="30%">
<p><b>Descripcion</b><br>
</p>
</td>
<td width="41%" valign="top">&nbsp;</td>

</tr>
<tr>
<td width="30%"><b>
<%
if len(request.querystring("idlogo")) <> 0 then
%>
<a href="<%=rst("archivo")%>">Descargar Logo</a>
<%
end if
%>
</b></td>
<td width="41%" valign="top">
<form name="Buscador" method="get" action="default.asp">
<input type="text" name="busca">
<input type="submit" name="Submit" value="Buscar">
</form>
</td>
</tr>
</table>
  #2 (permalink)  
Antiguo 12/04/2003, 04:46
Avatar de maestro  
Fecha de Ingreso: febrero-2002
Ubicación: España
Mensajes: 2.364
Antigüedad: 22 años, 4 meses
Puntos: 1
Que mania teneis de plantar todo el codigo HTML en vez de la zona de ASP que nos falla o que no funciona correctamente.

En vez de copiar codigo y probar a hacerlo funcionar leeros las FAQ e intentar hacer pequeñas practicas y luego ir ampliando.

Mira aqui para saber como hacer consultas SQL:
http://aspfacil.com/articulos/verarticulo.asp?id=22
http://aspfacil.com/articulos/verarticulo.asp?id=52

Si buscas en las FAQ tambien hay hilos.
http://forosdelweb.com/showthread.php?threadid=89836
__________________
Jose Maria Fernandez
[email protected]
Http://www.expansionweb.net
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:43.