<% set maconnexion = server.CreateObject("ADODB.Connection") maconnexion.Open(Application("bd_ConnectionString")) idPays = 92 session("idPays") = idPays '------------ RECUP DES REGIONS Où IL Y A DES BIENS (ET AFFICHE LEURS NOMBRE) ------------------ sql = " SELECT regions.nomEn AS nom_reg, regions.abbrev, regions.idRegion, pays.idpays as paysid, theDepartements.idDepartement, theDepartements.nomEn AS nom_dep, Count(Article.idArticle) AS CompteDeidArticles " sql = sql&" FROM (pays INNER JOIN regions ON pays.idpays = regions.idpays) INNER JOIN ((theDepartements INNER JOIN theVilles ON theDepartements.idDepartement = theVilles.idDepartement) INNER JOIN (Quartiers INNER JOIN Article ON Quartiers.idQuartier = Article.idQuartier) ON theVilles.idVille = Quartiers.idVille) ON regions.idRegion = theDepartements.idregion " 'sql = sql&" WHERE Article.isActif=1 AND Article.isTemporaire=0 " sql = sql&" WHERE (Article.isTemporaire=0 AND Article.isActif=1 AND (isInFrance = 0 OR (isInFrance=1 AND numMandat Is Not Null AND numMandat<>'' AND EcheanceMandat > '"&date()&"' ))) " sql = sql&" GROUP BY regions.idRegion, regions.nomEn, regions.abbrev, theDepartements.idDepartement, theDepartements.nomEn, pays.nomEn, pays.idpays " sql = sql&" HAVING (((paysid)="&idPays&")) " sql = sql&" ORDER BY regions.nomEn; " set rs = maconnexion.Execute(sql) 'response.write sql 'response.end '-------------------------- FIN ------------------------------------------------------------------ sel = "SELECT * FROM Regions WHERE idPays="&idPays&" ORDER By nomEn ASC " set theRes = maconnexion.Execute(sel) ReDim tab(20,4) '20 est le nb de départements / régions if not rs.eof then ind = 1 strListeReg = "$" rs.movefirst do while not rs.eof theId = rs("idregion") dispSuite = 1 for tb=1 to ubound(tab) if tab(tb,1) = theId then tab(tb,3) = tab(tb,3) + formatnumber(rs("CompteDeidArticles"),0)+0 dispSuite = 0 exit for end if next if dispSuite > 0 then tab(ind,1) = rs("idregion") tab(ind,2) = rs("nom_reg") tab(ind,3) = formatnumber(rs("CompteDeidArticles"),0)+0 tab(ind,4) = rs("abbrev") 'msgPrel = "italie_dept_"&rs("abbrev")&".gif" msgPrel = "best_italy/italy_"&rs("abbrev")&".gif" 'response.write "
"& tab(ind,1) &" "& tab(ind,2) &" "& tab(ind,3) &" "& tab(ind,4) ind = ind + 1 end if 'Redim tab(ind,4) rs.movenext loop nbElement = ind - 1 rs.movefirst end if function see(theName,nbElement) for i=1 to nbElement if (theName = tab(i,2)) then res = "("&tab(i,3)&")" end if next see = res end function '------------------------------------------------------ function testPresence(value) For inc = 1 To nbElement 'Effectue une itération sur le tableau 'response.write tab(inc,2) &"-"& tab(inc,3) &"-"& tab(inc,4) &"
" if Instr(tab(inc,2),value) then aret = "href=""acheter_italie.asp?idPays="&idPays&"&idRegion="&tab(inc,1)&""" onMouseOver=""javascript:on_('"&tab(inc,4)&"');"" onMouseOut=""javascript:off_();""" Exit For else aret = "#" end if next testPresence = aret end function %> Altitalia Real Estate


Select a region

 

<% if not theRes.eof then dim k dim borneSup ' borneSup est le nb d'enreg par colonne borneSup=10 theRes.movefirst do while not theRes.eof k=k+1 if (k<=borneSup) then theNom = theRes("nomEn") theNb = see(theNom,nbElement) if len(theNb)>0 then response.write ""& theNom &" "& theNb &"

" else response.write ""&theNom&"

" end if end if theRes.movenext loop theRes.movefirst end if%>
 		 shape="polygon" coords="73, 14, 72, 25, 58, 17, 50, 35, 44, 31, 44, 48, 39, 49, 52, 67, 59, 54, 67, 55, 96, 62, 82, 46, 85, 37, 78, 32, 83, 17"> shape="polygon" coords="47, 167, 34, 176, 24, 178, 31, 204, 26, 222, 34, 230, 39, 230, 39, 222, 44, 219, 50, 224, 54, 190, 59, 186"> shape="polygon" coords="185, 252, 145, 261, 132, 254, 126, 258, 121, 258, 116, 267, 177, 296, 183, 283, 175, 273"> shape="polygon" coords="63, 76, 86, 87, 95, 83, 101, 86, 101, 93, 115, 96, 96, 134, 78, 113"> shape="polygon" coords="64, 83, 56, 70, 33, 70, 17, 88, 22, 89, 35, 73, 50, 73"> shape="polygon" coords="25, 29, 7, 30, 10, 41, 28, 41"> shape="polygon" coords="36, 18, 27, 42, 12, 42, 2, 53, 9, 60, 7, 75, 22, 81, 34, 67, 34, 68, 53, 68, 38, 50, 44, 26"> shape="polygon" coords="97, 135, 105, 118, 118, 136, 135, 126, 133, 138, 135, 141, 130, 145, 142, 156, 147, 153, 152, 156, 147, 166, 127, 163"> shape="polygon" coords="191, 203, 202, 233, 190, 258, 198, 259, 211, 239, 211, 233, 221, 228, 219, 218, 205, 209, 209, 196, 204, 195, 202, 202"> coords="148, 167, 156, 159, 166, 163, 173, 158, 182, 174, 179, 179, 189, 194, 180, 200, 171, 195, 167, 181, 159, 182" shape="polygon"> shape="polygon" coords="186, 197, 191, 201, 202, 201, 204, 195, 212, 194, 213, 188, 207, 181, 189, 170, 182, 171, 182, 178, 189, 194"> shape="polygon" coords="56, 67, 61, 55, 84, 62, 113, 61, 115, 82, 124, 91, 123, 95, 113, 92, 104, 91, 102, 84, 92, 82, 86, 84, 64, 74, 65, 76"> shape="polygon" coords="114, 102, 107, 117, 120, 135, 135, 125"> coords="126, 16, 117, 24, 121, 34, 139, 38, 139, 27, 134, 23, 143, 16" shape="polygon"> shape="polygon" coords="86, 39, 86, 46, 96, 59, 118, 61, 112, 51, 116, 43, 129, 40, 120, 35, 116, 24, 126, 13, 113, 15, 106, 23, 109, 27, 98, 33, 95, 40"> shape="polygon" coords="125, 91, 148, 116, 136, 123, 127, 113, 116, 100"> shape="polygon" coords="80, 8, 78, 13, 86, 16, 80, 32, 90, 38, 109, 25, 104, 23, 118, 12, 110, 2, 93, 4, 90, 9"> shape="polygon" coords="174, 148, 175, 156, 183, 168, 194, 171, 245, 200, 249, 193, 233, 179, 190, 156, 194, 145"> shape="polygon" coords="147, 119, 136, 125, 136, 142, 133, 145, 145, 154, 149, 153, 167, 145"> shape="polygon" coords="148, 166, 153, 153, 167, 145, 175, 149, 172, 156, 166, 160, 157, 158">Grazie per scegliere una regiona nella lista...
<% if not theRes.eof then k=0 theRes.movefirst do while not theRes.eof k=k+1 if (k>borneSup) then theNom = theRes("nomEn") theNb = see(theNom,nbElement) if len(theNb)>0 then response.write ""& theNom &" "& theNb &"

" else response.write ""&theNom&"

" end if end if theRes.movenext loop theRes.close set theRes = nothing end if%>
 

change the country
 
Developed & Hosted by TAS France - ATSAT - © 2003 Altitalia - All rights reserved___