' 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
Les reconnaissez-vous ? (cliquez)

HippoServices
HippoDico
Forum
Hip'Hop

info@hippoplus.com