<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsPaese
Dim rsPaese_numRows
Set rsPaese = Server.CreateObject("ADODB.Recordset")
rsPaese.ActiveConnection = MM_immobili_STRING
rsPaese.Source = "SELECT Paese FROM immobile WHERE Area = 'Megevè' GROUP BY Paese ORDER BY Paese"
rsPaese.CursorType = 0
rsPaese.CursorLocation = 2
rsPaese.LockType = 1
rsPaese.Open()
rsPaese_numRows = 0
%>
<%
Dim rsTipologia
Dim rsTipologia_numRows
Set rsTipologia = Server.CreateObject("ADODB.Recordset")
rsTipologia.ActiveConnection = MM_immobili_STRING
rsTipologia.Source = "SELECT Tipologia FROM immobile WHERE Area = 'Megevè' GROUP BY tipologia ORDER BY Tipologia ASC"
rsTipologia.CursorType = 0
rsTipologia.CursorLocation = 2
rsTipologia.LockType = 1
rsTipologia.Open()
rsTipologia_numRows = 0
%>
<%
Dim rsposizione
Dim rsposizione_numRows
Set rsposizione = Server.CreateObject("ADODB.Recordset")
rsposizione.ActiveConnection = MM_immobili_STRING
rsposizione.Source = "SELECT Posizione FROM immobile WHERE Area = 'Megevè' GROUP BY posizione ORDER BY Posizione ASC"
rsposizione.CursorType = 0
rsposizione.CursorLocation = 2
rsposizione.LockType = 1
rsposizione.Open()
rsposizione_numRows = 0
%>
<%
Dim megeve
Dim megeve_cmd
Dim megeve_numRows
Set megeve_cmd = Server.CreateObject ("ADODB.Command")
megeve_cmd.ActiveConnection = MM_immobili_STRING
strsql="SELECT * FROM immobile WHERE Area = 'Megevè' "
if (request.form("paese")<>"Seleziona" and request.form("paese")<>"") OR (request.form("prezzo")<>"Seleziona" and request.form("prezzo")<>"") or (request.form("tipologia")<>"Seleziona" and request.form("tipologia")<>"") or (request.form("posizione")<>"Seleziona" and request.form("posizione")<>"") then
strSQL=strSQL & " AND "
x=0
if request.form("paese")<>"Seleziona" and request.form("paese")<>"" then
strSQL=strSQL & " Paese='" & request.form("paese") & "'"
x=1
end if
if (request.form("prezzo")<>"Seleziona" and request.form("prezzo")<>"") then
if x=1 then strsql=strsql & " AND "
x=1
select case request.form("prezzo")
case "fascia1"
strSQL=strSQL & " Prezzo>99000 and prezzo<301000"
case "fascia2"
strSQL=strSQL & " Prezzo>300000 and prezzo<501000"
case "fascia3"
strSQL=strSQL & " Prezzo>500000 and prezzo<1001000"
case "fascia4"
strSQL=strSQL & " Prezzo>1000000"
end select
end if
if (request.form("tipologia")<>"Seleziona" and request.form("tipologia")<>"") then
if x=1 then strsql=strsql & " AND "
x=1
strSQL=strSQL & " Tipologia='" & request.form("Tipologia") & "'"
end if
if (request.form("posizione")<>"Seleziona" and request.form("posizione")<>"") then
if x=1 then strsql=strsql & " AND "
strSQL=strSQL & " Posizione='" & request.form("Posizione") & "'"
end if
end if
strsql=strsql & " ORDER BY Prezzo ASC"
megeve_cmd.CommandText = strsql
megeve_cmd.Prepared = true
megeve_cmd.Parameters.Append megeve_cmd.CreateParameter("param1", 200, 1, 50, megeve__MMColParam) ' adVarChar
Set megeve = megeve_cmd.Execute
megeve_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 6
Repeat1__index = 0
megeve_numRows = megeve_numRows + Repeat1__numRows
%>
Chalet di lusso megève, appartamenti a megève, immobili megève, nuovi programmi
Megevè - Nuovi programmi In questa sezione sono elencati i nuovi immobili a disposizione.
Per maggiori informazioni contattateci tramite
e-mail:info@ifiluxury.com o telefono: 340 8540 329
Under construction
Realizzazione siti internet Delta Marketing
<%
rsPaese.Close()
Set rsPaese = Nothing
%>
<%
rsTipologia.Close()
Set rsTipologia = Nothing
%>
<%
rsposizione.Close()
Set rsposizione = Nothing
%>
<%
megeve.Close()
Set megeve = Nothing
%>
