<%@ 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%>
National Institute on Deafness and Other Communication Disorders National Institutes of Health 31 Center Drive, MSC 2320 Bethesda, MD USA 20892-2320 E-mail: nidcdinfo@nidcd.nih.gov
National Institute on Deafness and Other Communication Disorders
National Institutes of Health
31 Center Drive, MSC 2320
Bethesda, MD USA 20892-2320
E-mail: nidcdinfo@nidcd.nih.gov