<% ' Declare variables for the File System Object and the File to be accessed. Dim objFSO, objTextFile ' Create an instance of the the File System Object and assign it to objFSO. Set objFSO = CreateObject("Scripting.FileSystemObject") ' Open the file Set objTextFile = objFSO.OpenTextFile(Server.MapPath("textfile.txt")) Do While Not objTextFile.AtEndOfStream Response.Write objTextFile.ReadLine & "
" & vbCrLf Loop ' Close the file. objTextFile.Close ' Release reference to the text file. Set objTextFile = Nothing ' Release reference to the File System Object. Set objFSO = Nothing %>