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

realizar una busqueda en google

Estas en el tema de realizar una busqueda en google en el foro de ASP Clásico en Foros del Web. quiero que mi buscador realice busquedas en google tengo la cadena que tiene que ir ahora como meto la variable que la tomo desde la ...
  #1 (permalink)  
Antiguo 25/04/2003, 10:46
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
realizar una busqueda en google

quiero que mi buscador realice busquedas en google tengo la cadena que tiene que ir ahora como meto la variable que la tomo desde la misma pagina.
Ademas el buscador cuenta con barias opciones de busqueda por medio de un combo, ¿como hago para saver que selecciono para que se ejecute la busqueda?

Gracias
  #2 (permalink)  
Antiguo 25/04/2003, 11:15
 
Fecha de Ingreso: abril-2003
Ubicación: guadalupe
Mensajes: 12
Antigüedad: 21 años, 1 mes
Puntos: 0
incluye el codigo ese que mencionas...
  #3 (permalink)  
Antiguo 25/04/2003, 15:42
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
ok ya lo solucione
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
  #4 (permalink)  
Antiguo 25/04/2003, 15:45
Avatar de virla  
Fecha de Ingreso: julio-2002
Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 21 años, 11 meses
Puntos: 1
este es el codigo que busca en la base de datos pero el resultado que tengo es que me muestra todos los que tengo puestos.
<%
'realizamos la conexión de la Base de Datos
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("../db/bdBuscador.mdb")
'definimos las variables de busqueda
Dim Temp,Rango
Rango=Request("Tipo")
If Rango="1" Then
'En la Tabla la palabra que buscamos
Temp="Select * From Tabla1 Where UCase([pal])='" & UCase(Request("palabra"))'"
Else
Temp="Select * From Tabla1 Where InStr(UCase([pal]),'" & UCase(Request("Criterio")) & "')>0"
End If
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

alguno puede desirme porque?
__________________
---->Sin ayuda no se llega a ningun lado<----
Virla
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 01:23.