<%
theFile = "/" & VirtualRoot & "/forms/OT_A1TEST/Access.txt"
 
Set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFileSys.OpenTextFile(Server.MapPath(theFile))
 
Do While Not objTextStream.atEndOfStream
 theLine = objTextStream.ReadLine
 %>
 <%=theLine%> \n
 
<%	
 
Loop 
objTextStream.Close
 
%>