<% Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("c:\testfile.txt") count=0 do while not objFile.AtEndOobjFSOtream count=count+1 strText=objFile.readline response.write (count & strText & "
") loop objFile.close Set objFile=nothing Set objFSO=nothing %>