<%
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
%>