<% if rss.state <> adStateClosed then rss.close 'Randomize Timer if session("cod")="" then if session("tipo")="" and session("subtipo")="" and session("anio")="" and session("cod")="" then rss.Open "SELECT * FROM Inmuebles where Activo= true ORDER BY anio DESC",Connn,AdOpenKeyset 'men1="Debe seleccionar algún criterio para la búsqueda de un Inmueble" 'response.redirect "respbuscar.asp" elseif session("tipo")<>"" and session("subtipo")="" and session("anio")="" then rss.Open "SELECT * FROM Inmuebles where Activo= true and tipo='" & session("tipo") & "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")<>"" and session("subtipo")<>"" and session("anio")="" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and tipo='" & session("tipo") & "' and subtipo='" & session("subtipo") & "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")<>"" and session("subtipo")<>"" and session("anio")<>"" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and tipo='" & session("tipo") & "' and subtipo='" & session("subtipo") & "' and anio= '" & session("anio")& "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")="" and session("subtipo")<>"" and session("anio")="" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and subtipo='" & session("subtipo") & "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")="" and session("subtipo")<>"" and session("anio")<>"" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and subtipo='" & session("subtipo") & "' and anio= '" & session("anio")& "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")="" and session("subtipo")="" and session("anio")<>"" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and anio= '" & session("anio")& "' ORDER BY anio DESC ",Connn,AdOpenKeyset elseif session("tipo")<>"" and session("subtipo")="" and session("anio")<>"" then rss.Open "SELECT * FROM Inmuebles Where Activo= true and tipo='" & session("tipo") & "' and anio= '" & session("anio")& "' ORDER BY anio DESC ",Connn,AdOpenKeyset end if else 'response.redirect "detalle.asp?idinm= & rss.Fields("codigo")" rss.Open "SELECT * FROM Inmuebles Where Activo= true and Codigo=" & session("cod") & " ",Connn,AdOpenKeyset end if for i = 1 to rss.RecordCount 'rss.PageSize %> <% Rss.MoveNext if rss.EOF then exit for else ' next end if next rss.Close set rss = nothing %>