<%
Dim theFile
theFile = "/" & VirtualRoot & "/forms/Purchase_Request_XYZ/suppliers_" & _
  f_entity & ".txt"
 
Dim objFileSys
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Dim objTextStream
' Die nachfolgende Zeile funtioniert nur bei Lokale Verzeichnisse...
Set objTextStream = objFileSys.OpenTextFile(Server.MapPath(theFile))
Dim theLine
Do While Not objTextStream.atEndOfStream
theLine = objTextStream.ReadLine