
25/04/2003, 15:45
|
 | | | Fecha de Ingreso: julio-2002 Ubicación: Rio Gallegos - Santa Cruz
Mensajes: 893
Antigüedad: 22 años, 9 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 |