<%
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
%>
Key West Discounts at Sunset Waterfront Shoppes
