23/01/2008, 06:39
|
 | | | Fecha de Ingreso: julio-2002 Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 9 meses Puntos: 1 | |
| ayuda con buscador convinado
Bueno les cuento tengo un buscador con opción a buscar noticias de mi sitio y otra opción para realizar búsquedas en google, la cosa es que por separado todo me funciona super bien pero al unirlo alguno no funciona, alguien podria orientarme o darme una mano?
este es el codigo
Código:
<%
// -= Ch0rOy =- Buscador Web mediante API's Google
//
// Este codigo es LIBRE y puedes distribuirlo y/o modificarlo libremente.
// Lo unico que pido es que no borres esto si lo vas a distribuir.
//
// Esta basado en otros codigos que circulan por la red, pero que,
// por lo menos a mi no me funcionaban.
// Y extraido de mi pagina web www.caravacaonline.net para mis amigos
// de www.forosdelweb.com, una gran comunidad sin la que seguro que no
// sabria lo que se.
//
//
// [email protected]
%>
<% Response.Buffer = True %>
<%keywords=request.querystring("keywords")
keywords=Replace(keywords,"á","a")
keywords=Replace(keywords,"é","e")
keywords=Replace(keywords,"í","i")
keywords=Replace(keywords,"ó","o")
keywords=Replace(keywords,"ú","u")
keywords=Replace(keywords,"ñ","n")
keywords=Replace(keywords,"Á","A")
keywords=Replace(keywords,"É","E")
keywords=Replace(keywords,"Í","I")
keywords=Replace(keywords,"Ó","O")
keywords=Replace(keywords,"Ú","U")
keywords=Replace(keywords,"Ñ","N")
if keywords="" then%>
<form method=get action=<% =request.servervariables("URL") %> name="buscador">
<input type="text" name="keywords" size="50">
<input type="hidden" name="h" value="0">
<input type="submit" value="Buscar"> <br>
Buscar:
<input type="radio" name="opc" value="web" checked>
Noticias
<input type="radio" name="opc" value="spa">
Google en español<br>
<br>
<hr>
<b>Introduzca en el formulario de arriba los criterios de búsqueda.</b>
<%else
opc=Request("opc")
if opc="" then opc="all"
keywordsinput=request("keywords")
keywordsinput=Replace(keywordsinput,CHR(34),""")%>
<form method=get action=<% =request.servervariables("URL") %> name="buscador">
<input type="text" name="keywords" size="50" value="<%= keywordsinput %>">
<input type="hidden" name="h" value="0">
<input type="submit" value="Buscar"> <br>
Buscar:
<input type="radio" name="web" value="web" <%if opc="web" then%>checked<%end if%>>
Noticias
<input type="radio" name="spa" value="spa" <%if opc="spa" then%>checked<%end if%>>
Google en español<br>
<br>
</p>
<%
' ########################################################
' INICIO PERSONALIZACION DE DATOS
' Aqui debes introducir la "key" que te proporciona Google
key = "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
' Aqui tu direccion web SIN http://
web = "http://www.xxxxxxxxxx.com.ar"
' Aqui la URL donde se encuentra el script
URL = "http://www.xxxxxxxxxxxxx.com.ar/buscador.asp"
' #########################################################
maxResults = 10
if opc="web" then
'dim PathDataBase
PathDataBase="/database/mibasedeDatos.mdb"
set Con = Server.CreateObject("ADODB.Connection")
set resNoticias = Server.CreateObject("ADODB.RecordSet")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(PathDataBase)
%>
<%
search = trim(Request("search"))
Dim resultado
Function CreaNav(varPagTotales, varPagActual)
'### Modificar el contenido de las constantes para cambiar el aspecto de la barra de navegación ###
CONST styleTable = "font-family: Arial, Helvetica, sans-serif; font-size: 14px;" 'background-color:#999999; solid #000000;
CONST styleCeldaPagXdeY = ""'"color: #000000; background-color: #C0C0C0;"
CONST classEnlace = "LikBuscador"
CONST styleCeldaPagActual = "font-size: 20px; font-weight:bold; color: #FF0000;" '"background-color:#F9F9F9; "
CONST styleCeldaPagLink = "LikBuscador"'"background-color:#F0F0F0"
CONST styleCeldaTexto= "font-family: Arial, Helvetica, sans-serif; font-size: 12px; Color: #999999; "
'### NO MODIFICAR LUEGO DE ESTA LINEA ###
arrPaginaActualBarNav = Split(Request.ServerVariables("SCRIPT_NAME"), "/") 'Revisión 4
PaginaActualBarNav = arrPaginaActualBarNav(UBound(arrPaginaActualBarNav )) 'Revisión 4
If varPagTotales > 1 Then 'Revisión 3
MostrarPrimera = False
If varPagTotales > 5 Then MostrarUltima = True
TablaTMP = "<table border=""0"" cellpadding=""0"" cellspacing=""2"" style=""" & styleTable & """ align=""center""><tr>"
TablaTMP = TablaTMP & "<td style=""" & styleCeldaTexto & """> Página " & varPagActual & " de " & varPagTotales & " </td>"
If varPagActual >= 5 Then
TablaTMP = TablaTMP & "<td style="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?Modu=buscador&Pagina=1&search=" & search & """ class=""" & classEnlace & """><img src=""/img/icons/FlechaFinIzq.gif"" width=""70"" height=""13"" border=""0""></a></td>"
'Innecesario:
TablaTMP = TablaTMP & "<td><a href="""& PaginaActualBarNav & "?Modu=buscador&eje=30&page=" & varPagActual - 1 & "&search=" & search & """ class=""" & classEnlace & """><img src=""img/icons/FlechaIzq.gif"" width=""15"" height=""13"" border=""0""></a></td>"
RestaTMP = 2
For i = 1 to 5
If i = 3 Then
TablaTMP = TablaTMP & "<td width=""20"" align=""center"" style=""" & StyleCeldaPagActual & """>" & varPagActual - RestaTMP & "</td>"
Else
TablaTMP = TablaTMP & "<td width=""20"" align=""center"" style=""" & StyleCeldaPagLink & """><a href="""& PaginaActualBarNav & "?Modu=buscador&eje=30&page=" & varPagActual - RestaTMP & "&search=" & search & """ class=""" & classEnlace & """>" & varPagActual - RestaTMP & "</a></td>"
End if
If varPagActual - RestaTMP = varPagTotales Then
MostrarUltima = False
Exit For
End if
RestaTMP = RestaTMP - 1
Next
Else
' For i = 1 to 5 ### BUG Revisión 1
For i = 1 to 5' ### Revisión 1
If i <> varPagActual Then
TablaTMP = TablaTMP & "<td width=""20"" align=""center"" class="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?Modu=buscador&eje=30&page=" & i & "&search=" & search & """ class=""" & classEnlace & """>" & i & "</a></td>"
Else
TablaTMP = TablaTMP & "<td width=""20"" align=""center"" style="""& StyleCeldaPagActual &""">" & i & "</td>"
End if
Next
End if
' Innecesario:
If varPagTotales > 5 AND varPagTotales <> varPagActual Then TablaTMP = TablaTMP & "<td><a href="""& PaginaActualBarNav & "?Modu=buscador&eje=30&page=" & varPagActual + 1 & """ class=""" & classEnlace & """><img src=""img/icons/FlechaDer.gif"" width=""15"" height=""13"" border=""0""></a></td>"
If MostrarUltima Then TablaTMP = TablaTMP & "<td style="""& StyleCeldaPagLink &"""><a href="""& PaginaActualBarNav & "?Modu=buscador&eje=30&page=" & varPagTotales & "&search=" & search & """ class=""" & classEnlace & """><img src=""img/icons/FlechaFinDer.gif"" width=""59"" height=""13"" border=""0""></a></td>"
TablaTMP = TablaTMP & "</tr></table>"
CreaNav = TablaTMP
End If
End Function
resultado=0
%>
Continua
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla |