To print: Select File and then Print from your browser's menu
--------------------------------------------------------------
This story was printed from Golfweek.com
located at http://www.golfweek.com
--------------------------------------------------------------
<% dim URL dim PhyPth dim strLine URL=request("URL") set FilSys = CreateObject("Scripting.FileSystemObject") PhyPth=Server.MapPath(URL) set ASPFil = FilSys.OpenTextFile(PhyPth, 1) Response.Write _ " " &_ "
To print: Select File and then Print from your browser's menu
" &_ "--------------------------------------------------------------
" &_ "This story was printed from Golfweek.com
" &_ "located at http://www.golfweek.com
" &_ "--------------------------------------------------------------
" do while not ASPFil.AtEndOfStream 'Reads all in to an array arrini strLine = ASPFil.ReadLine Response.Write strLine end if loop %>