<%
set maconnexion = server.CreateObject("ADODB.Connection")
maconnexion.Open(Application("bd_ConnectionString"))
'--- recup agences italie --------------------------------------------
'---------------------------------------------------------------------
idPays = 92
'------------ RECUP DES REGIONS Où IL Y A DES BIENS (ET AFFICHE LEURS NOMBRE) ------------------
'sql = " SELECT agences.idAgence, agences.nom, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomFr AS nom_ville, Count(Article.idArticle) AS CompteDeidArticles "
'sql = sql&" 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) INNER JOIN (Article INNER JOIN agences ON Article.idAgence = agences.idAgence) ON theVilles.idVille = agences.idVille "
'sql = sql&" GROUP BY agences.idAgence, agences.nom, ordre_affiche, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomIt, pays.nomFr, pays.idpays, Article.isGoodForMandat, Article.isTemporaire, Article.isActif "
'sql = sql&" HAVING (((pays.idpays)="&idPays&") AND ((Article.isGoodForMandat)=1) AND ((Article.isTemporaire)=0) AND ((Article.isActif)=1)) "
'sql = sql&" ORDER BY agences.ordre_affiche ASC; "
sql = " SELECT agences.idAgence, agences.nom, pays.idpays as paysid, agences.isCallCenter as isAgenceCallCenter, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomEn AS nom_ville, agences.idAgence, Count(Article.idArticle) AS CompteDeidArticles "
sql = sql&" FROM ((pays INNER JOIN regions ON pays.idpays = regions.idpays) INNER JOIN theDepartements ON regions.idRegion = theDepartements.idregion) INNER JOIN ((theVilles INNER JOIN agences ON theVilles.idVille = agences.idVille) LEFT JOIN Article ON agences.idAgence = Article.idAgence) ON theDepartements.idDepartement = theVilles.idDepartement "
sql = sql&" WHERE (((Article.isTemporaire)=0) AND ((Article.isActif)=1) AND ((Article.isInFrance)=0)) OR (((Article.isTemporaire)=0) AND ((Article.isActif)=1) AND ((Article.isInFrance)=1) AND ((Article.numMandat) Is Not Null And (Article.numMandat)<>'') AND ((Article.EcheanceMandat)>'"&date()&"')) "
sql = sql&" GROUP BY agences.idAgence, agences.nom, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomEn, agences.idAgence, agences.ordre_affiche, pays.nomEn, pays.idpays, agences.isCallCenter "
sql = sql&" HAVING paysid="&idPays&" AND isAgenceCallCenter=0 "
sql = sql&" ORDER BY agences.ordre_affiche; "
set rsI = maconnexion.Execute(sql)
'-------------------------- FIN ------------------------------------------------------------------
sqlv = "select idVendeur,idAgence, nom, prenom from vendeurs order by idAgence "
set rsv = maconnexion.Execute(sqlv)
nbV = 0
if not rsv.eof then
rsv.movefirst
do while not rsv.eof
nbV = nbv +1
rsv.movenext
loop
Redim tabV(nbV,2)
inc =0
rsv.movefirst
do while not rsv.eof
tabV(inc,1) = rsv("idAgence")
tabV(inc,2) = rsv("prenom")&" "&UCASE(rsv("nom"))
inc=inc+1
rsv.movenext
loop
rsv.close
set rsv=nothing
end if
'response.write "aaa"
'response.end
function AfficheVendeur(value)
for i=0 to nbV
if tabV(i,1)=value then response.write tabV(i,2) &" "
next
end function
'--- recup agences France --------------------------------------------
'---------------------------------------------------------------------
idPays = 61
'------------ RECUP DES REGIONS Où IL Y A DES BIENS (ET AFFICHE LEURS NOMBRE) ------------------
sql = " SELECT agences.idAgence, agences.nom, pays.idpays as paysid, agences.isCallCenter as isAgenceCallCenter, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomEn AS nom_ville, agences.idAgence, Count(Article.idArticle) AS CompteDeidArticles "
sql = sql&" FROM ((pays INNER JOIN regions ON pays.idpays = regions.idpays) INNER JOIN theDepartements ON regions.idRegion = theDepartements.idregion) INNER JOIN ((theVilles INNER JOIN agences ON theVilles.idVille = agences.idVille) LEFT JOIN Article ON agences.idAgence = Article.idAgence) ON theDepartements.idDepartement = theVilles.idDepartement "
sql = sql&" WHERE (((Article.isTemporaire)=0) AND ((Article.isActif)=1) AND ((Article.isInFrance)=0)) OR (((Article.isTemporaire)=0) AND ((Article.isActif)=1) AND ((Article.isInFrance)=1) AND ((Article.numMandat) Is Not Null And (Article.numMandat)<>'') AND ((Article.EcheanceMandat)>'"&date()&"')) "
sql = sql&" GROUP BY agences.idAgence, agences.nom, agences.tel, agences.adresse, agences.fax, regions.idRegion, theVilles.nomEn, agences.idAgence, agences.ordre_affiche, pays.nomEn, pays.idpays, agences.isCallCenter "
sql = sql&" HAVING paysid="&idPays&" AND isAgenceCallCenter=0 "
sql = sql&" ORDER BY agences.ordre_affiche; "
set rsF = maconnexion.Execute(sql)
'-------------------------- FIN ------------------------------------------------------------------
%>
Altitalia Real Estate
Les agences Altitalia, bien réparties sur le territoire français et italien nous permettent d’être près de nos clients à tout moment tout en représentant pour eux une référence sûre.
