<%@ Language=VBScript %> <%' Option Explicit %> <% Dim SQL Dim startTimer startTimer = Timer() Dim pageTitle pageTitle = "Crossword Puzzle" Dim pageTag Set pageTag = CreateObject( "Scripting.Dictionary" ) pageTag.Item( "t_Server" ) = "DailyHerald.com" pageTag.Item( "t_Channel" ) = "Entertainment" pageTag.Item( "t_Section" ) = "Puzzles" pageTag.Item( "t_SubSection" ) = "" pageTag.Item( "t_SubSubSection" ) = "" pageTag.Item( "t_Byline" ) = "" pageTag.Item( "t_Headline" ) = "" pageTag.Item( "t_OAS" ) = "www.dailyherald.com/entertainment/puzzles/index.asp" pageTag.Item( "t_Positions" ) = "" Dim current_date, current_time current_date = Year( Date ) & Left( "00", 2 - Len( Month( Date ) ) ) & Month( Date ) & Left( "00" , 2 - Len( Day( Date ) ) ) & Day( Date ) ' current date current_time = Hour( Time ) ' the current hour in military time %> Daily Herald | <%= pageTitle %>
To download or print a PDF version of the puzzle or solution, you can also use the buttons below. This requires Acrobat Reader, which can be downloaded free here.