<%@ Language=VBScript %> <% 'RECUPERO VALORI Dim objRS, regione, contaRec, contaFound, stato 'PARAMETRI DI PAGINAZIONE Dim iPageSize Dim iPageCount Dim iPageCurrent Dim strOrderBy Dim strSQL Dim iRecordsShown Dim I stato=Request.QueryString("stato") regione=Request.QueryString("regione") Set objRS = Server.CreateObject("ADODB.Recordset") '************************************************************** 'RICERCA GEOGRAFICA '************************************************************** %>

<%If stato="" or (stato="ITALIA/ITALY/I" and regione="") then%>


RICERCA GEOGRAFICA<%else%>


RISULTATO RICERCA

<%END IF%>

 
<%If stato="" and regione="" then%>
Serbia Montenegro Ireland Great Britain Portugal Spain France Switzerland Belgium Netherlands Luxembourg Germany Denmark Norway Sweden Finland Czech Republic Austria Italy Slovenia Croatia Slovak Republic Hungary Poland Macedonia Greece Bulgaria Turkey Lithuania Latvia Estonia Ucraina Russia Moldova Romania Bosnia Herzegovina Belarus Albania

<%else if stato="ITALIA/ITALY/I" and regione="" then%>

Valle D'Aosta Piemonte Lombardia Trentino Alto Adige Friuli Venezia Giulia Veneto Ligura Emilia Romagna Toscana Umbria Marche Lazio Abruzzo Molise Campania Puglia Basilicata Calabria Sicilia
Selezionare una regione

<%end if%> <%end if%> <% iPageSize = 5 'NUMERO RECORD PER PAGINA If Request.QueryString("page") = "" Then iPageCurrent = 1 Else iPageCurrent = CInt(Request.QueryString("page")) End If If Request.QueryString("order") = "" Then strOrderBy = "priorita, ragsoc" Else strOrderBy = Request.QueryString("order") End If 'ESEGUE IL CICLO SE LO STATO E' <> DALL'ITALIA MA NON E' NULLO OPPURE 'SE LO STATO E' = ALL'ITALIA MA SIA STATA SCELTA ANCHE UNA REGIONE IF (stato<>"ITALIA/ITALY/I" AND stato<>"") OR (stato="ITALIA/ITALY/I" and regione<>"") THEN contaFound=0 if stato="ITALIA/ITALY/I" and regione<>"" then strSQL="SELECT * FROM tImb WHERE regione='"& Replace(regione,"'","''") & "' ORDER BY priorita, ragsoc" else if stato<>"ITALIA/ITALY/I" and regione="" then strSQL="SELECT * FROM tImb WHERE stato='"& Replace(stato,"'","''") & "' ORDER BY priorita, ragsoc" end if end if objRS.PageSize = iPageSize objRS.CacheSize = iPageSize objRS.Open strSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText reccount = objRS.recordcount iPageCount = objRS.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 If iPageCount = 0 Then Response.Write "

Non è stato trovato nessun record.
No record found.

" %>

<% Else objRS.AbsolutePage = iPageCurrent iRecordsShown = 0 Do While iRecordsShown < iPageSize And Not objRS.EOF if stato="ITALIA/ITALY/I" and regione<>"" then If (strComp(objRS("regione"), regione, vbTextCompare) = 0) then contaRec=contaRec+1 end if else if stato<>"ITALIA/ITALY/I" and regione="" then If (strComp(objRS("stato"), stato, vbTextCompare) = 0) then contaRec=contaRec+1 end if end if end if %>
<%if contaFound=0 then strStato=split(stato,"/")%>

<%if strStato(0)<>"ITALIA" then%> <%=strStato(0)%>, <%=strStato(1)%> <%else%> <%=strStato(0)%> > <%=regione%> <%end if%>

<%contaFound=contaFound+1 end if%> <% iRecordsShown = iRecordsShown + 1 objRS.movenext Loop objRS.Close set objRS = nothing %><% If iPageCurrent <> 1 Then %> <% End If If iPageCurrent < iPageCount Then %> <% End If %>
Precedente/Previous Successiva/Next
<% If ipagecount = 1 Then %>

<% else %>
Pagina <%=iPageCurrent%> di <%=iPageCount%>
Page of
<% end if end if END IF objConn.Close set objConn = nothing %>

 
 
  <%if stato="" then%>

 

S
E
L
E
Z
I
O
N
A

 S
E
L
E
C
T

C
O
U
N
T
R
Y

<%Else if stato="ITALIA/ITALY/I" and regione="" then%>

S
E
L
E
Z
I
O
N
A

U
N
A

R
E
G
I
O
N
E
 <%Else%>

 

 

S
E
L
E
Z
I
O
N
A

U
N

F
O
R
N
I
T
O
R
E

<%End if%> <%End if%>