<%@Language ="VBScript"%> <%Response.Buffer = True%> <% 'Conexión a Base de datos fp_conn = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("svpv.mdb") Set fp_db = Server.CreateObject("ADODB.Connection") fp_db.open fp_conn %>

<% b1=request.QueryString("b1") q=request.QueryString("q") sitesearch=request.QueryString("sitesearch") if b1="google"then response.redirect "http://www.google.com.mx/custom?q="&q&"&sitesearch="&sitesearch else SQL_ConsultaPe = "SELECT * FROM datos where ubicacion LIKE '%"&q&"%' or descripcion LIKE '%"&q&"%' or ciudad LIKE '%"&q&"%' order by id asc" Set ConsultaPe = fp_db.Execute(SQL_ConsultaPe) Do While Not ConsultaPe.Eof id = ConsultaPe.Fields.Item("id") ubicacion = ConsultaPe.Fields.Item("ubicacion") precio=ConsultaPe.Fields.Item("precio") descripcion=ConsultaPe.Fields.Item("descripcion") identificador=ConsultaPe.Fields.Item("identificador") ventas=ConsultaPe.Fields.Item("ventas") %> <% ConsultaPe.MoveNext Loop fp_db.close end if %> <%=ubicacion%> Dirección: <%=ubicacion%> Precio: <%=precio%> : [+] Ver detalles