<%
Path = Server.MapPath("/") & "/_private/"
'On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set ActuFile = fs.OpenTextFile(Path & "\actu_home.txt")
i=0
'ReDim message(0)
Do While Not ActuFile.AtEndOfStream
Line = ActuFile.ReadLine
arrayArticle = Split(Line,Vbtab)
If UBound(arrayArticle) = 3 Then
vardate = arrayArticle(0)
vartitre = arrayArticle(1)
vartexte = arrayArticle(2)
varurl = arrayArticle(3)
ReDim Preserve message(i)
' Ligne originale avant modif afin de transformer la couleur du texte
'_____________________________________________________________________
message(i)=vartitre&"|("&vardate&") "&vartexte&"|"&varurl
'_____________________________________________________________________
'message(i)=""&vartitre&"|("&vardate&") "&vartexte&"|"&varurl&""
i=i+1
End If
Loop
Set ActuFile = Nothing
Set fs = Nothing
%>
