Ver Mensaje Individual
  #7 (permalink)  
Antiguo 08/04/2003, 17:30
Avatar de Fr@Nc3$c0
Fr@Nc3$c0
 
Fecha de Ingreso: abril-2002
Ubicación: Barcelona (Spain)
Mensajes: 710
Antigüedad: 23 años
Puntos: 1
Hola Basty

Deberías hacerlo mas o menos así en función lo que proporcionas:

<%

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


If PALABRA= "" then
response.write " Introduce un valor "
Else
Dim Temp
Temp="Select * From Comercios Where UCase(Categoria & Nombre & Direccion & Telefono) like '%" & UCase(Request("palabra")) & "%'"
End if

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


Salu2!!!! y suerte (avisa si te funciona)
__________________
Francesc Mula Calleja
Hay mucho por ver todavía...

Última edición por Fr@Nc3$c0; 08/04/2003 a las 17:43