|
<% If request.querystring("cZona") = "" AND request.querystring("cEstado") = "" then %>
|
Desde Leba 85 Gestión Inmobiliaria, podemos ayudarle en todas sus gestiones inmobiliarias, bien sea propietario de un inmueble o comprador. Le ayudamos en todo lo relacionado con el mundo inmobiliario, desde valoraciones de todo tipo de inmuebles, gestión de documentación en compras, ventas, alquileres, traspasos, permutas, asesoramiento en todas sus operaciones, hasta búsqueda de financiación para un sinfín de posibilidades de compra o inversión, búsqueda de inmuebles, etc, etc. Para más información llame al 983 33 34 93. Copyright (c) 2003 Buster Computer System S.L. Designed & Performed By lvlol2p}{€O
|
|
<% End If %>
<%
If request.querystring("cZona") <> "" OR request.querystring("cEstado") <> "" then
On Error Resume Next
Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "Datos"
nContador = 0
lUnaVez = 0
strSQL = "SELECT Zona, Descripcion, Estado FROM Datos ORDER BY Zona DESC"
Set miConexion = Conexion.Execute(strSQL)
If Err.Description <> "" then
Response.Write "Error en Base de Datos: " & Err.Description & ""
Else
%>
<% Do While Not miConexion.EOF If miConexion("Zona") = request.querystring("cZona") OR miConexion("Estado") = request.querystring("cEstado") Then If lUnaVez = 0 Then Response.Write "
VOLVER" miConexion.Close Conexion.Close Set miConexion = Nothing Set Conexion = Nothing %> ") Response.Write("") Response.Write(" ") Response.Write("") Response.Write(" ") Response.Write("") ' ******************* ESTE ES UN BOTON "TRAMPA" PARA SOLVENTAR UN BUG DE LA WEB. ES INVISIBLE. ******************* Response.Write(" ") Response.Write("") Response.Write(" ") ' **************************************************************************************************************** Else %>
<% If request.querystring("cZona") = "" AND request.querystring("cEstado") = "" then %>
|
