www.nidcd.nih.gov - Printer Friendly

Change text size: S M L

<%@ Language=VBScript %><% Option Explicit %><%'Response.Buffer = trueConst ForReading = 1Dim newpg, strReferrer, objFSO, objOpenFile, strLinestrReferrer = Request.ServerVariables("HTTP_REFERER")'Response.End strReferrer = Right(strReferrer,len(strReferrer)-7) strReferrer = Right(strReferrer,len(strReferrer) - instr(1,strReferrer,"/")+1) If Request.QueryString("pg")="" Then newpg = Request.ServerVariables("PATH_INFO")&"?pg="&strReferrer Response.Redirect newpg End IfSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objOpenFile = objFSO.OpenTextFile(Server.MapPath(strReferrer), ForReading)'Output each line of the file...Dim ss = ""Do Until objOpenFile.AtEndOfStream strLine = objOpenFile.ReadLine s = s & strLine End IfLoopobjOpenFile.CloseSet objOpenFile = NothingSet objFSO = Nothing%><% Response.write (Request.ServerVariables("SERVER_NAME")&" - Printer Friendly") %><%Response.Write s%>