<%
' Dom variablar för "File System Object" och filen vi vill öppna.
Dim oFSO, oTextFil

Set oFSO = CreateObject("Scripting.FileSystemObject")

' Öppnar filen
Set oTextFil = oFSO.OpenTextFile(Server.MapPath("textfil.txt"))

Do While Not oTextFil.AtEndOfStream
Response.Write oTextFil.ReadLine & "
" & vbCrLf
Loop

' Stänger filen.
oTextFil.Close
Set oTextFile = Nothing
Set oFSO = Nothing
%>