<% Option Explicit %> <% Dim strConnString, rst, i strConnString = Application("strConnString") %> <% If Request.ServerVariables("REQUEST_METHOD") = "GET" Then %>

	Destinazione		<% Set rst = elencoDestinazioni(strConnString) Do Until rst.EOF %> <%=rst(1) %> <% rst.movenext Loop rst.close %>
	Provincia		-- <% Set rst = elencoProv(strConnString) Do Until rst.EOF %> <%=rst(2) %> <% rst.movenext Loop rst.close %>
	Stato Locativo		Irrilevante Occupato Libero
	MQ
	Numero Locali		-- <% For i=1 To 6 %> <%=i %> <% Next %>
	Tipologia		Affitto Vendita Entrambi
	cancella		cerca

<% Else Set rst = elencoImmobili(strConnString,Trim(Request.Form("codProv")),CInt(Request.Form("idDest")), _ CInt(Request.Form("mq")), Request.Form("stato_locativo"),CInt(Request.Form("numLocali")),Request.Form("tipo")) If rst.EOF Then %> Nessun Immobile trovato

<% Else %>

<% i = 1 Do Until rst.EOF %> <% i = i + 1 rst.movenext Loop rst.close %>

Unitą Imm.

Destinazione

Cittą

Prov

MQ Coperti

MQ Scoperti

Stato

Locali

<%=Trim(rst(0)) %>

<%=rst(1) %>

<%=rst(8) %>

<%=rst(2) %>

<% If rst(4)=0 Then %>/<%Else Response.Write(FormatNumber(rst(4),0)) End If%>

<% If rst(10)=0 Then %>/<%Else Response.Write(FormatNumber(rst(10),0)) End If%>

<% Select Case Trim(rst(5)) Case "O": Response.Write("Occupato") Case "L": Response.Write("Libero") End Select %>

<% If rst(6)=0 Then %>/<%Else Response.Write(rst(6)) End If%>

<% End If End If %> <% Set rst = Nothing %>