Hjælpe til FSO

<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/tutorials/asp/ministerier.txt")
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
i = 0
Do While i <= x And i => y
  Response.write f.Read(i) & "<br>"
  i = i + 1
Loop

f.Close
%>

//>Rune

Eks...:


Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objfile = objFSO.OpenTextFile("C:\SomeFile.txt", 1)

i = 0
start = 2
slut = 6
do while not objfile.AtEndOfStream
  str = objfile.readline
  if i >= start AND i < slut then
    Response.Write str
  end if
loop
objfile.Close
Set objfile = Nothing
Set objFSO = Nothing

nice svar!! takker.....

Anytime...
Thx 4 Poinz

//>Rune