<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set oConexion = Server.CreateObject("ADODB.Connection") dirdb = request.ServerVariables("PATH_TRANSLATED") dirdb=left(dirdb,instrrev(dirdb,"\",instrrev(dirdb,"\")-1)) & "\_private\Inmuebles.mdb" oConexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Dirdb & ";Persist Security Info=True;Jet OLEDB:Database Password=4gl" If cstr(Request.QueryString("Localidad")) <> "" Then localidad = Request.QueryString("Localidad") Else localidad = "1" End If %>

Búsqueda de Propiedades: Defina los Criterios para realizar la Búsqueda de Propiedad: Operación: Incluir Todas... <%Set rsOperaciones = Server.CreateObject("ADODB.Recordset") With rsOperaciones .CursorLocation = 3 .Open "SELECT * FROM Operaciones ORDER BY Operacion ASC",oConexion,3,1,1 WHILE Not .EOF%> "><%=.Fields("Operacion")%> <%.MoveNext WEND .Close Set rsOperaciones = Nothing End With%> Tipo de Propiedad: <%Set rsTipos = Server.CreateObject("ADODB.Recordset") With rsTipos .CursorLocation = 3 .Open "SELECT * FROM Tipos ORDER BY IdTipo",oConexion,3,1,1 Do %> " <% If cint(Request.QueryString("Tipo")) = .Fields("IdTipo") Then Response.Write("selected")%> ><%=.Fields("Tipo")%> <%.MoveNext Loop Until .EOF End With%> Subtipo: Incluir Todos... <% If cstr(Request.QueryString("Tipo")) <> "" Then tipo = Request.QueryString("Tipo") Else rsTipos.MoveFirst tipo = cstr(rsTipos.Fields("IdTipo")) End If rsTipos.Close Set rsTipos= Nothing Set rsSubTipos = Server.CreateObject("ADODB.Recordset") With rsSubTipos .CursorLocation = 3 strSQL= "SELECT IdSubTipo,SubTipo FROM SubTipos WHERE IdTipo = " & tipo &" ORDER BY SubTipo" .Open strSQL,oConexion,3,1,1 While Not .EOF%> "> <%=.Fields("SubTipo")%> <%.MoveNext WEND .Close End With Set rsSubTipos = Nothing %> Barrio: Incluir Todos... <% Set rsBarrios = Server.CreateObject("ADODB.Recordset") With rsBarrios .CursorLocation = 3 strSQL = "SELECT * FROM Barrios WHERE IdLocalidad = " & localidad & " ORDER BY Barrio ASC" .Open strSQL,oConexion,3,1,1 WHILE Not .EOF%> "><%=.Fields("Barrio")%> <%.MoveNext WEND .Close End With Set rsBarrios = Nothing %> Zona: Incluir Todos... <%Set rsZonas = Server.CreateObject("ADODB.Recordset") With rsZonas .CursorLocation = 3 .Open "SELECT * FROM Zonas WHERE IdLocalidad = " & Localidad,oConexion,3,1,1 WHILE Not .EOF %> "><%=.Fields("Zona")%> <%.MoveNext WEND .Close End With Set rsZonas = Nothing%> Orientacion: Incluir Todas... <%Set rsOrientaciones = Server.CreateObject("ADODB.Recordset") With rsOrientaciones .CursorLocation = 3 .Open "SELECT * FROM Orientaciones",oConexion,3,1,1 WHILE Not .EOF %> "><%=.Fields("Orientacion")%> <%.Movenext WEND .Close End With Set rsOrientaciones = Nothing %> Ubicación: <%Set rsLocalidades = Server.CreateObject("ADODB.Recordset") With rsLocalidades .CursorLocation = 3 strSQL = "SELECT Localidades.IdLocalidad, Localidades.Localidad & "" - "" & Provincias.Provincia & "" - "" & Paises.País AS Ubicacion FROM (Paises INNER JOIN Provincias ON Paises.IdPaís = Provincias.IdPaís) INNER JOIN Localidades ON Provincias.IdProvincia = Localidades.IdProvincia WHERE Localidades.IdLocalidad<>0" .Open strSQL,oConexion,3,1,1 WHILE Not .EOF%> " <% If cint(Request.QueryString("Localidad")) = .Fields("IdLocalidad") Then Response.Write("selected")%>><%=.Fields("Ubicacion")%> <%.MoveNext WEND .Close End With Set rsLocalidades = Nothing%>   Incluir solo Inmuebles con Foto

<% oConexion.Close Set oConexion = Nothing Session.Contents.Abandon %>