buscador en una sola página

hugorei · #1 (**permalink**) 23/03/2004, 21:08

Tengo el código del buscador publicado en http://www.desarrolloweb.com/manuales/25/

El tema es que el formulario de busqueda y los resultados estan en páginas diferentes como tendria que hacer para que lo que buscas y el resultado aparezcan en la misma página sin que tengas dos paginas , me explico ?

buliwyf · #2 (**permalink**) 24/03/2004, 06:35

con un if refiriendote al boton de submir del buscador. P.E:

<%if request("submit")="" then 'no se ha usado el formulario%>
<form>
.....
<input type=submit name=submit value=submit>
</form>
<%else
set rs=connection.execute("select * from.........

end if>

hugorei · #3 (**permalink**) 24/03/2004, 08:37

He tratado de hacerlo pero sigo con problemas mira paso el codigo del formulario y del buscador el tema es juntar a los dos en una sol pagina he intentado hacer como vos me decis pero me da errores y no llego a nada

CODIGO DEL BUSCADOR :

<%
function Sacar(cadena,campos)
dim i
dim SacarAux
while InStr(cadena," ")
Cadena=Replace(Cadena," "," ")
wend
if len(cadena)>0 then
if InStr(cadena," ")>0 then
Sacar= Sacar(left(cadena,InStr(cadena," ")-1),campos) & " OR " & Sacar(right(cadena,len(cadena)-InStr(cadena," ")),campos)
elseif InStr(cadena,"+")>0 then
Sacar=Sacar(left(cadena,InStr(cadena,"+")-1),campos) & " AND "& Sacar(right(cadena,len(cadena)-InStr(cadena,"+")),campos)
elseif InStr(cadena,"-")>0 then
Sacar=Sacar(left(cadena,InStr(cadena,"-")-1),campos) & " AND NOT " & Sacar(right(cadena,len(cadena)-InStr(cadena,"-")),campos)
else
'fijamos la sentencia
SacarAux=""
i=1
SacarAux= "( " & campos(i) & " Like '%" & cadena & "%'"
i=i+1
while len(campos(i))>0
SacarAux= SacarAux & " OR " & campos(i) & " Like '%" & cadena & "%'"
i=i+1
wend
SacarAux=SacarAux & " )"
Sacar=SacarAux
end if
else
sacar=""
end if
end function

function GeneraSql(cadena,tabla,campos)
if len(cadena)>0 then
generaSql="Select * from " & tabla & " Where " & Sacar(cadena,campos)
else
Response.Write "No hay criterios"
end if
end function
%>

<html>

<head>
<title>Buscar datos</title>
</head>

<body bgcolor="#FFFFCC">

Resultados obtenidos con <%=Request("Palabra") %>

<%

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("base.mdb")

Dim Temp

dim campos(3) 'el tamano del array debe superar en uno al numero de campos
campos(1)="nombre"
campos(2)="des"

'para mostrar cual seria el resultado...
cadena=Request.form("palabra")
tabla_bbdd="Tabla"
Temp=GeneraSql(cadena,tabla_bbdd,campos)

response.write Temp

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

No se ha encontrado nada con <%=Request("palabra")%> en la Base de Datos

<%
Else
%>
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="28%" height="19">
Categoria
</td>
<td width="28%" height="19">
Nombre de la pagina
</td>
<td width="52%" height="19">
Descripcion
</td>
<td width="19%" height="19">
Url
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Categoria")%></td>
<td width="28%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Nombre")%></td>
<td width="52%" bgcolor="#FFCC00" height="51">
<%=Tabla.Fields("Des")%></td>
<td width="19%" bgcolor="#FFCC00" height="51">
<a href="<%=Tabla.Fields("file:///C|/WINDOWS/TEMP/Rar$DI00.399/url")%>">Ir</a>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table>
</center></div>
Busquedas
2002
 
</body>
</html>

CODIGO DEL FORMULARIO QUE ENVIA LOS DATOS

<html>

<head>
<title>Busqueda</title>
</head>
<form method="Post" action="buscar.asp">
<body bgcolor="#FFFFCC">
Ingrese Palabra a buscar


<input type="text" name="palabra" size="20">




<input type="submit" value="Buscar" name="boton1">
<input type="reset" value="Restablecer" name="boton"></form>
 
</body>

</html>

TE ASEGURO QUE ESTOY PROBANDO DE TODO PERO ESTOY TRABADO ALGUIEN QUE ME AYUDE PLISSSSSS

hugorei · #4 (**permalink**) 24/03/2004, 15:26

Plisss necesito una mano por favor estoy trabado

hugorei · #5 (**permalink**) 25/03/2004, 09:10

Ayuda plissss

hugorei · #6 (**permalink**) 25/03/2004, 12:57

Ya pude poner todo en una página sin que me de error tanto el formulario como el buscador , lo que necesitaria por favor es lo siguiente, cada vez que la consulta da un resultado el formulario para la busqueda desaparece y solo queda el resultado sin el formulario para que siga el usuario consultando el tema es como hago para que este formulario este siempre visible tenga o no resultados , la idea que el usaurio no tenga que volver para atras para realizar otra consulta , me explico.

POR FAVOR UNA MANITO Y NO MOLESTO MAS

AlZuwaga · #7 (**permalink**) 25/03/2004, 13:51

Pues, simplemente metés el formulario fuera del condicional o ponés otro formulario, idéntico al anterior, dentro del condicional

hugorei · #8 (**permalink**) 25/03/2004, 14:34

Perfecto , una mas lo prometo la ultima, y como hago para que no me muestre (la primera vez cuando la busqueda todavia no se inicio ) toda la tabla si no por ejemplo los primeros 5 registros a modo de ejemplo ?

AlZuwaga · #9 (**permalink**) 25/03/2004, 15:13

Mejor poner que no se muestre la tabla si no se ha buscado nada.. a manera de ejemplo:

<%
If Request.Form() <> "" Then
'mostrás la tabla de resultados aquí
Else
response.write "Por favor, efectúe una búsqueda"
End if
%>