Français           Team           Clients           Contact us           Download            About Us      

 Partners

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

   

List of properties managed over the last 10 years

 Consulting

 Management

 Development

<% 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=" sf"
			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

		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 & " properties / " & formatnumber(TOT,0) & " sf

") %>

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