<% response.expires=0 myfile = Request.querystring("f") PRINTING = false Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath(myfile), 1) do while f.AtEndOfStream = false ln = f.ReadLine if (instr(ln, "PRINT_START") ) Then PRINTING = True if (instr(ln, "PRINT_STOP") ) Then PRINTING = False if (PRINTING) Then ostr = ostr & ln End if loop f.Close Set f=Nothing Set fs=Nothing %> Harry S Truman Little White House E-Print
Send to Printer    Back

Harry S Truman Little White House

<%=ostr %>
Truman Little White House
111 Front Street - Key West, FL (305) 294-9911
Copyright 2008 Corporately sponsored by Historic Tours of America, Inc.
All rights reserved.