
08/04/2003, 17:30
|
 | | | 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 |