
08/04/2003, 17:34
|
 | | | Fecha de Ingreso: diciembre-2002 Ubicación: Ahora aqui
Mensajes: 485
Antigüedad: 22 años, 3 meses Puntos: 0 | |
<%
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 Request.QueryString("Variable") = "" then
response.write " Introduce un valor "
else
Dim Temp
Temp="Select * From Comercios Where UCase(Categoria & Nombre & Direccion & Telefono) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
end if
%> |