<% '------------------------------------------------------------ ' This function finds the last date of the given month '------------------------------------------------------------ Function GetLastDay(intMonthNum, intYearNum) Dim dNextStart If CInt(intMonthNum) = 12 Then dNextStart = CDate( "1/1/" & intYearNum) Else dNextStart = CDate(intMonthNum + 1 & "/1/" & intYearNum) End If GetLastDay = Day(dNextStart - 1) End Function '------------------------------------------------------------------------- ' This routine prints the individual table divisions for days of the month '------------------------------------------------------------------------- Sub Write_TD(sValue, sClass) Response.Write " " & sValue & "" & vbCrLf End Sub ' Constants for the days of the week Const cSUN = 1, cMON = 2, cTUE = 3, cWED = 4, cTHU = 5, cFRI = 6, cSAT = 7 ' Get the name of this file sScript = Request.ServerVariables("SCRIPT_NAME") ' Check for valid month input If IsEmpty(Request("MONTH")) OR NOT IsNumeric(Request("MONTH")) Then datToday = Date() intThisMonth = Month(datToday) ElseIf CInt(Request("MONTH")) < 1 OR CInt(Request("MONTH")) > 12 Then datToday = Date() intThisMonth = Month(datToday) Else intThisMonth = CInt(Request("MONTH")) End If ' Check for valid year input If IsEmpty(Request("YEAR")) OR NOT IsNumeric(Request("YEAR")) Then datToday = Date() intThisYear = Year(datToday) Else intThisYear = CInt(Request("YEAR")) End If strMonthName = MonthName(intThisMonth) datFirstDay = DateSerial(intThisYear, intThisMonth, 1) intFirstWeekDay = WeekDay(datFirstDay, vbSunday) intLastDay = GetLastDay(intThisMonth, intThisYear) ' Get the previous month and year intPrevMonth = intThisMonth - 1 If intPrevMonth = 0 Then intPrevMonth = 12 intPrevYear = intThisYear - 1 Else intPrevYear = intThisYear End If ' Get the next month and year intNextMonth = intThisMonth + 1 If intNextMonth > 12 Then intNextMonth = 1 intNextYear = intThisYear + 1 Else intNextYear = intThisYear End If ' Get the last day of previous month. Using this, find the sunday of ' last week of last month LastMonthDate = GetLastDay(intLastMonth, intPrevYear) - intFirstWeekDay + 2 NextMonthDate = 1 ' Initialize the print day to 1 intPrintDay = 1 ' Open a record set of schedules Set Rs = Server.CreateObject("ADODB.RecordSet") ' These dates are used in the SQL dFirstDay = intThisMonth & "/1/" & intThisYear dLastDay = intThisMonth & "/" & intLastDay & "/" & intThisYear sSQL = "SELECT DISTINCT Start_Date, End_Date FROM t50Events WHERE " & _ "(Start_Date >=#" & dFirstDay & "# AND Start_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(End_Date >=#" & dFirstDay & "# AND End_Date <= #" & dLastDay & "#) " & _ "OR " & _ "(Start_Date < #" & dFirstDay & "# AND End_Date > #" & dLastDay & "# )" & _ "ORDER BY Start_Date" 'Response.Write sSQL ' Open the RecordSet with a static cursor. This cursor provides bi-directional navigation Rs.Open sSQL, sDSN, adOpenStatic, adLockReadOnly, adCmdText %> Fifty Plus - Richmond First

 

50 Plus June 07 Cover
Richmond Firsts by RAY SCHREINER
Fifty Plus Logo Banner
Your Banner Ad Here
small ad
50 Skyscrapper ad
Classifieds
Subscription
Contests
Awards
About Us
Archives
This Just In
Richmond 1st
Book Review
Mr Modem
Gardening
VA Kitchen
Your Health
Round Up
Features
Editor's Note
Life
Retirement
Travel
Richmond Parents Monthly Website
Directory
Advertise
Contact Us
Around Richmond Calendar
A Most Commodious Structure
On January 1, 1907, at a meeting of the Richmond Chamber of Commerce, a resolution was offered and approved that “Richmond should have a building at the Jamestown Exposition as headquarters for exploiting its resources and for protecting its trade interests against Baltimore and other centres and the City Council be urged to appropriate a sum not exceeding $10,000 for the cost of such a building.”

 Without objection, the council’s Committee on Ordinance Charter and Reform recommended the appropriation of $10,000 on January 19. The Chamber began work to gather material for the exhibit. “It is to be the hope that the fruits of our labors will be made manifest by a Richmond exhibit fully demonstrating all the city’s progress and importance as a center of industry.” In February, a committee from the city council Committee on Grounds and Buildings visited Norfolk to see the possible site for the building. They found it to be a 125-foot by 150-foot lot facing a handsome driveway. It was assigned to Richmond rent-free with an option to purchase it following the Exposition. Work began on the building described as “the most commodious and creditable structure and all respects calculated to be to the advantage of the city and its interest of every kind.

 The Chamber set a goal of $20,000 to be sought to cover maintenance on the building and the cost of promotion in the form of “some printed matter.” The publisher of the Richmond City Directory, C. H. Chataigne, had been selected to be in charge. The Jamestown Exposition opened on April 26, 1907. Richmond Day was celebrated on July 18. Some 3,950 Richmonders arrived at Jamestown by train that day, plus another 575 by steamer. Added to the more than 5400 Richmonders that had arrived ahead of time, attendance from the capital city totaled more than 10,000. Admission to the grounds was 50 cents. The Times Dispatch described the day as “crowded almost to suffocation.” That day Mayor Carlton McCarthy, the two branches of the city council, and the heads of various city departments arrived to be greeted by the Richmond Blues “resplendent in their gorgeous uniforms,” the Howitzers and a battalion of the Seventh Regiment.

The Jamestown Exposition was a success and provided an opportunity to tell the story of Richmond. The city was reward for its efforts with a bronze medal in the category of individual exhibits and a gold medal inscribed, “Awarded the Richmond City building.” A silver medal was also awarded the Richmond Public Schools for Classroom Industrial work.