| <%
Path = Server.MapPath("/") & "\_private\"
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set ActuFile = fs.OpenTextFile(Path & "\actu.txt")
Do While Not ActuFile.AtEndOfStream
Line = ActuFile.ReadLine
arrayArticle = Split(Line,VbTab)
varDate = arrayArticle(0)
varTitre = arrayArticle(1)
varTexte = arrayArticle(2)
varUrl = arrayArticle(3)
%>
<%End if%> <% Loop Set ActuFile = Nothing Set fs = Nothing %> |
<%=varTitre%> - <%=varDate%>