% @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 %>