<% Dim Key Dim ServeurLocalOk Key = "HTTP_HOST" if left(uCase(Request.ServerVariables(key)),3) = "KEL" then ServeurLocalOk = True sLien = "http://kel2000/dba-accesimmo-net/execute/" else ServeurLocalOk = False sLien = "http://dba.accesimmo.net/execute/" end if %>

Groupe KEL, logiciels pour les agents immobiliers et les administrateurs de biens.

Le Portail Economique des Hautes Alpes