<% Response.ContentType = "application/vnd.SwiftView-ICS" %>ICS <% http_host = Request.ServerVariables("SERVER_NAME") file = Request.QueryString("file") REM Select the markup string based ont he filename SELECT CASE file CASE "1page.hpg" markstr = "STATUS: NOT Released" fileurl = "http://" + http_host + "/tech/" + file CASE "2pages.hpg" markstr = "STATUS: Released to Manufacturing" fileurl = "http://" + http_host + "/tech/" + file CASE ELSE markstr = "STATUS: Unknown" fileurl = "http://" + http_host + "/" + file END SELECT REM Specify the document to be viewed Response.Write("ldoc " + fileurl) %> # The markup: # Set transparency on. onpage all markup attributes drawmode transparent # Create "yellow sticky note" onpage all markup attributes fgcolor rgb:ff/ff/88 onpage all markup filledrectangle 0.25 0.25 4.75 1.20 # Add "shadow" for a raised effect onpage all markup attributes fgcolor rgb:aa/aa/aa onpage all markup filledpolygon 0.30 1.20 4.75 1.20 4.75 0.30 4.80 0.30 4.80 1.25 0.30 1.25 # Draw the text on the "yellow sticky note" onpage all markup attributes fgcolor rgb:00/00/99 onpage all markup text font "face cour size 12 pitchcpi 8" <% Response.Write("onpage all markup text rxloc 0.4 ryloc 0.70 string """ + markstr + """") %> onpage all markup text rxloc 0.4 ryloc 1.00 string "Viewed on $strftime(%x) at $strftime(%X)" draw widetop