%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim risultatiricerca__MMColParam risultatiricerca__MMColParam = "1" If (Request.Form("fasciaprezzoMin") <> "") Then risultatiricerca__MMColParam = Request.Form("fasciaprezzoMin") End If %> <% Dim risultatiricerca__MMColParam2 risultatiricerca__MMColParam2 = "1" If (Request.Form("fasciaprezzoMax") <> "") Then risultatiricerca__MMColParam2 = Request.Form("fasciaprezzoMax") End If %> <% Dim risultatiricerca__MMColParam3 risultatiricerca__MMColParam3 = "1" If (Request.Form("citta") <> "") Then risultatiricerca__MMColParam3 = Request.Form("citta") End If %> <% Dim risultatiricerca__MMColParam4 risultatiricerca__MMColParam4 = "1" If (Request.Form("tipo") <> "") Then risultatiricerca__MMColParam4 = Request.Form("tipo") End If %> <% Dim risultatiricerca__VarAttivato risultatiricerca__VarAttivato = "1" If (Request.Form("attivato") <> "") Then risultatiricerca__VarAttivato = Request.Form("attivato") End If %> <% Dim risultatiricerca Dim risultatiricerca_numRows Set risultatiricerca = Server.CreateObject("ADODB.Recordset") risultatiricerca.ActiveConnection = MM_affittilocazioni_STRING risultatiricerca.Source = "SELECT * FROM annunci WHERE prezzo >= '" + Replace(risultatiricerca__MMColParam, "'", "''") + "' AND prezzo <= '" + Replace(risultatiricerca__MMColParam2, "'", "''") + "' AND citta = '" + Replace(risultatiricerca__MMColParam3, "'", "''") + "' AND tipo = '" + Replace(risultatiricerca__MMColParam4, "'", "''") + "' AND approvato = '" + Replace(risultatiricerca__VarAttivato, "'", "''") + "'" risultatiricerca.CursorType = 0 risultatiricerca.CursorLocation = 2 risultatiricerca.LockType = 1 risultatiricerca.Open() risultatiricerca_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 risultatiricerca_numRows = risultatiricerca_numRows + Repeat1__numRows %>
![]() |
||||
| |
||||
|
|
|
Sei un proprietario? e descrivi il tuo immobile!!
Cerchi casa?
Cerchi un'attività commerciale?
|
||
|
||||