English           Équipe           Clients           Nous rejoindre           Télécharger            À propos      

 Partenaires

Société Immobilière Jean E. Martineau Inc.

   

Liste des propriétés gérées durant les 10 dernières années 

 Conseil

 Gestion

 Développement

<% Set OBJ = Server.CreateObject("Scripting.FileSystemObject") Set SHT = OBJ.OpenTextFile(Server.MapPath("../dossiers/props.txt"),1) KK="                              " LL=Array(5,28,12,8,8,0,0,10) SS=0 Response.Write("
")
While Not SHT.AtEndOfStream
	T=split(SHT.ReadLine, chr(9))
	n=n+1
	if SS=0 then	Response.Write("")

	for each i in Array(0,1,2,3,7)
		if i=3 then
			U=" pc"
			if len(T(3))<=1 then
				T(3)=T(4)
				U=" un"
				TOT= TOT + CSng(T(3)) * 500
			else
				TOT= TOT + CSng(T(3))
			end if
		end if

		if i=7 then
			if T(i)="SOLD" then T(i)="VENDUE"
			if T(i)="FOR SALE" then T(i)="A VENDRE"
		end if
		
		T(i)=trim(T(i))
		if i>=3 then	Response.Write(left(KK , 6*(LL(i)-len(T(i)))))
		
		LK=0
		if i=1 or i=7 then
			for each PP in Array("6363", "montarville")
				if InStr(lcase(T(1)), PP)>0 Then
					Response.Write("")
					LK=1
				end if
			next
		end if
		
		if Len(T(i))>LL(i)-2 then T(i)=left(T(i),LL(i)-2)
		Response.Write(T(i))
		if LK=1 then Response.Write("")
		
		if i<3 then Response.Write(left(KK , 6*(LL(i)-len(T(i)))))
		if i=3 then Response.Write(U)
	next
	
	if SS=0 then
		Response.Write("")
		SS=1
	else
		SS=0
	end if
	
	Response.Write("
") Wend Response.Write("
") SHT.close %>
<% Response.Write("

" & n & " propriétés / " & formatnumber(TOT,0) & " pc

") %>

          © Société Immobilière Jean E. Martineau Inc., 2003