<% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching dim sArea, sTipo, sSearch, sLocalita if request("area") <> "" then session("sArea") = request("area") end if if not dDescArea.Exists(session("sArea")) then response.Redirect("home.asp") if request("tipo") <> "" then session("sTipo") = request("tipo") end if if not dDescTipo.Exists(session("sTipo")) then response.Redirect("home.asp") sSearch = request.QueryString("search") if request("nRegione") <> "" then session("nRegione") = request("nRegione") end if if session("nRegione") = "" or not isNumeric(session("nRegione")) or sSearch = "NEW" then session("nRegione") = "0"' RegioneEmiliaRomagna if request("nProvincia") <> "" then session("nProvincia") = request("nProvincia") end if if session("nProvincia") = "" or not isNumeric(session("nProvincia")) or sSearch = "NEW" then session("nProvincia") = "0"'ProvinciaParma if request("nComune") <> "" then session("nComune") = request("nComune") end if if session("nComune") = "" or not isNumeric(session("nComune")) or sSearch = "NEW" then session("nComune") = "0"'ComuneParma if request("nCategoria") <> "" then session("nCategoria") = request("nCategoria") end if if session("nCategoria") = "" or not isNumeric(session("nCategoria")) or sSearch = "NEW" then session("nCategoria") = "0" if request("prezzoFrom") <> "" then session("prezzoFrom") = request("prezzoFrom") end if if session("prezzoFrom") = "" or not isNumeric(session("prezzoFrom")) or sSearch = "NEW" then session("prezzoFrom") = "0" if request("prezzoTo") <> "" then session("prezzoTo") = request("prezzoTo") end if if session("prezzoTo") = "" or not isNumeric(session("prezzoTo")) or sSearch = "NEW" then session("prezzoTo") = "0" if cDbl(session("prezzoFrom")) > cDbl(session("prezzoTo")) then session("prezzoFrom") = "0" session("prezzoTo") = "0" end if if session("nRegione") = "0" then session("nProvincia") = "0" session("nComune") = "0" end if if request("oBy") <> "" then session("sOrderParam") = request("oBy") end if if not dOrderParam.Exists(session("sOrderParam")) or sSearch = "NEW" then session("sOrderParam") = orderParamLOC if request("page") <> "" then session("pubblicimmobiliPage") = request("page") end if if session("pubblicimmobiliPage") = "" or not isNumeric(session("pubblicimmobiliPage")) or sSearch = "NEW" then session("pubblicimmobiliPage") = "1" if request("sWhere") <> "" then session("sLocalita") = request("sWhere") end if if sSearch = "NEW" then session("sLocalita") = "*** selezionare località ***" RecordsPerPagina = 10 %> <%=dDescTipo(session("sTipo")) & " - " & uCase(dDescArea(session("sArea")))%> - LE NOSTRE OFFERTE - MEDIAGLOBAL Vendite Immobiliari & Aziendali s.a.s
 
<%=dDescTipo(session("sTipo")) & " - " & uCase(dDescArea(session("sArea")))%> - LE NOSTRE OFFERTE  
" /> " />
TIPOLOGIA:
<% dim queryCat : if session("sArea") = areaCasaVacanza then queryCat = "sArea = '"&areaResidenziale&"'" else queryCat = "sArea = '"&session("sArea")&"'" end if %>
LOCALITÁ
" style="width:50px; " /> " style="width:50px; " /> " style="width:50px; " /> " />
selezione comune
<%=session("sLocalita")%>
PREZZO DA:
PREZZO A:
ORDINAMENTO:
/> Localita /> Categoria /> Prezzo €

<% if request("bFromForm") = "1" then sSQL = "SELECT tblImmobili.*, tblImmobiliCat.sCategoria, tblRegioni.sRegione, tblProvince.sProvincia, tblComuni.sComune"&_ " FROM tblComuni INNER JOIN (tblProvince INNER JOIN (tblRegioni INNER JOIN "&_ " (tblImmobiliCat INNER JOIN tblImmobili ON tblImmobiliCat.ID = tblImmobili.IdCat) ON tblRegioni.ID = tblImmobili.nRegione) "&_ " ON tblProvince.ID = tblImmobili.nProvincia) ON tblComuni.IdComune = tblImmobili.nComune"&_ " WHERE tblImmobili.bEnabled = -1 AND tblImmobiliCat.bEnabled = -1 AND tblImmobili.sArea = '"&session("sArea")&"' " if (session("nCategoria") <> "" AND isNumeric(session("nCategoria")) AND session("nCategoria") <> "0") then sSQL = sSQL & " AND IdCat = "&session("nCategoria")&"" end if if (session("nRegione") <> "" AND isNumeric(session("nRegione")) AND session("nRegione") <> "0") then sSQL = sSQL & " AND nRegione = "&session("nRegione")&"" if (session("nProvincia") <> "" AND isNumeric(session("nProvincia")) AND session("nProvincia") <> "0") then sSQL = sSQL & " AND nProvincia = "&session("nProvincia")&"" if (session("nComune") <> "" AND isNumeric(session("nComune")) AND session("nComune") <> "0") then sSQL = sSQL & " AND nComune = "&session("nComune")&"" end if end if end if if session("prezzoFrom") <> "" and isNumeric(session("prezzoFrom")) AND session("prezzoFrom") <> "0" then sSQL = sSQL & " AND nPrezzo >= "&session("prezzoFrom")&"" end if if session("prezzoTo") <> "" and isNumeric(session("prezzoTo")) AND session("prezzoTo") <> "0" then sSQL = sSQL & " AND nPrezzo <= "&session("prezzoTo")&"" end if if session("sTipo") = tipoAffitto then sSQL = sSQL & " AND nTipologia = 0 " elseif session("sTipo") = tipoVendita then sSQL = sSQL & " AND nTipologia = 1 " else sSQL = sSQL end if sSQL = sSQL & " ORDER BY "&dOrderParam(session("sOrderParam")) if session("sOrderParam") = orderParamLOC then sSQL = sSQL & ", "&dOrderParam(orderParamCAT) elseif session("sOrderParam") = orderParamCAT then sSQL = sSQL & ", "&dOrderParam(orderParamLOC) else sSQL = sSQL & ", "&dOrderParam(orderParamLOC) & ", "&dOrderParam(orderParamCAT) end if sSQL = sSQL & " , RIGHT(IdPratica, 5)" 'response.Write(sSQL) set oRS = getRS( sSQL, connstring ) if not oRS.eof then oRS.PageSize = RecordsPerPagina oRS.AbsolutePage = subst0(session("pubblicimmobiliPage")) %>
RISULTATI RICERCA
<%=Paging (intPage, oRS.PageCount, oRS.RecordCount, "")%>
IMMOBILE
MQ
PREZZO €
INFO
DETTAGLIO
<% dim bBool, trBgColor, sParam i = 1 : do while not oRS.eof and i <= RecordsPerPagina if bBool then trBgColor = tblBG1 else trBgColor = tblBG2 %>
" style="overflow:hidden; height:1%; width:850px;">
<% if oRS("iListImg") <> "" and not isNull(oRS("iListImg")) then %> &opx=70" style="border:1px solid #36a1ff; margin-right:10px;" align="left" alt="<%="Rif.: "&oRS("IdPratica")%>" /> <% else %>immagine non disponibile<% end if %> Rif.: <%="MG"&right("00000"&oRS("IdPratica"), 5)%>
<%=uCase(oRS("sCategoria"))%>
<%=uCase(oRS("sCOMUNE")) & " ("&oRS("sPROVINCIA")&")"%>
<% if oRS("nMq") <> "0" then response.Write(formatNumber(oRS("nMq"), 0, -1, 0, 0 ))%>
<% if oRS("nPrezzo") <> "0" then response.Write(formatNumber(oRS("nPrezzo"), 2, -1, 0, -1 )) %>
', 610, 520, 'no')">richiedi informazioni
&area=<%=session("sArea")%>&tipo=<%=session("sTipo")%>">vedi dettaglio
<% sParam = oRS(dOrderParam(session("sOrderParam"))) i = i + 1 bBool = Not bBool oRS.MoveNext loop response.Write("
"&Paging (intPage, oRS.PageCount, oRS.RecordCount, "")&"
") else %>
.. Nessun risultato trovato per i criteri impostati ..
<% end if set oRS = Nothing else %>
.. Imposta i filtri di ricerca ..
<% end if %>