' lecture du fichier texte on error resume next Dim objFile Dim objStream Dim strText ' Ouverture set objFile = Server.CreateObject("Scripting.fileSystemObject") set objStream = objFile.OpenTextFile(Server.MapPath("nouveautes.txt")) ' Lecture des lignes i=1 do while objStream.AtEndOfStream <> True strText = objStream.ReadLine strLigne1 ="
" & vbCrlf strText = objStream.ReadLine strLigne2 ="
" & vbCrlf strText = objStream.ReadLine strLigne3 ="
" & vbCrlf strText = objStream.ReadLine strLigne4 ="
" & vbCrlf strLigne5 ="
" & vbCrlf strLigne6 ="
" & vbCrlf response.write(strLigne1) response.write(strLigne2) response.write(strLigne3) response.write(strLigne4) response.write(strLigne5) response.write(strLigne6) i=i+1 loop on error goto 0
Nombreux vols de chevaux
L
es reconnaissez-vous ?
(cliquez)
