<%
set maconnexion = server.CreateObject("ADODB.Connection")
maconnexion.Open(Application("bd_ConnectionString"))
'recup des infos de Monaco-----
sq = " SELECT theVilles.nomIt, theVilles.nomFr, theVilles.nomEn, theDepartements.idDepartement, regions.idRegion, pays.idpays, theVilles.idVille "
sq = sq&" FROM ((pays INNER JOIN regions ON pays.idpays = regions.idpays) INNER JOIN theDepartements ON regions.idRegion = theDepartements.idregion) INNER JOIN theVilles ON theDepartements.idDepartement = theVilles.idDepartement "
sq = sq&" WHERE (((theVilles.nomIt) Like 'monaco')) OR (((theVilles.nomFr) Like 'monaco')) OR (((theVilles.nomEn) Like 'monaco')); "
'response.write sq
set rsq = maconnexion.Execute(sq)
idVille = rsq("idVille")
idPays = rsq("idPays")
idDepartement = rsq("idDepartement")
'------------ RECUP DES REGIONS Oł IL Y A DES BIENS (ET AFFICHE LEURS NOMBRE) ------------------
sql = " SELECT Departements.idDepartement, Departements.nom as nom_dep, Count(Article.idArticle) AS CompteDeidArticles, pays.nomFr "
sql = sql&" FROM pays INNER JOIN ((Departements INNER JOIN Villes ON Departements.idDepartement = Villes.idDepartement) INNER JOIN (Quartiers INNER JOIN Article ON Quartiers.idQuartier = Article.idQuartier) ON Villes.idVille = Quartiers.idVille) ON pays.idpays = Departements.idPays "
sql = sql&" GROUP BY Departements.idDepartement, Departements.nom, pays.nomFr "
sql = sql&" HAVING (((pays.nomFr) Like 'italie')); "
'set rs = maconnexion.Execute(sql)
'-------------------------- FIN ------------------------------------------------------------------
%>
Altitalia Real Estate
