<% '------------------------------------------------------------ ' 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 %> Richmond Parents Monthly | Fifty Plus - Richmond magazines for seniors and parents
Fifty Plus Monthly Features

Jan 09 cover

Home

Richmond Firsts
Ray Schreiner

Shovel Trouble

Who is going to shovel all that snow? That question has faced many a Richmonder over the years when snows cover the local landscape and make foot traffic and movement difficult. As early as 1895 there was an ordinance requiring folks to remove any snow that could cause problems.

In 1912 the law was more explicit, making it the duty of householders to remove snow from in front of their premises. Even though the earlier law seemed to say you had to do something, in the preceding years most people had done nothing. Shoveling Snow. (Photo: New York 1908, George Grantham Bain Collection. Library of Congress)

However, in 1912, police began immediately to serve tickets on those who ignored the law. In January, over 150 people came to police court to face Judge Crutchfield and reluctantly pay the $2 fine—although many did not bother to show up. Those who appeared stressed the point that in previous years, no one had been fined, so why start now? (Photo: New York, 1908; George Grantham Bain Collection, Library of Congress)

Taking into account the opposition, the Times-Dispatch report of the story was headlined: “Sidewalk Snow Can Move Itself.”

There was also the argument about the constitutionality of the law, the premise being, “Since the sidewalk is public property and not owned or controlled by the abutting owner or tenant, he could not be compelled to keep it in order.”

Furthermore, people complained that not everyone with sidewalks of snow was being summoned to court. How come city buildings were not required to do the same as private homes?

As an example, folks pointed to the new John Marshall High School where ice and snow made sidewalks “dangerous to navigation.” Part of their argument was that the city had given raises to the school janitors, so why couldn’t they help with the shoveling?

The newspaper noted: “Unless Justice Crutchfield throws out the entire batch, lawyers will tell him that he must put the entire city in jail.”

Oddly enough, City Building Inspector Beck had been served a ticket for failing to clear snow from around the Seabrook Warehouse. Beck’s statement was: “I am not responsible for the condition there; the place is used for storage purposes by the fire department.” He did relent somewhat, got workers to get out their shovels, and was able to pronounce: “There ain’t no snow around city hall and the police can go to blazes “

The fines and subsequent debate about them made citizens fully aware of the law and who was supposed to get out a shovel and get to work.

Ray Schreiner is a volunteer at the Valentine Richmond History Center and the Virginia Historical Society, and is an avid reader of old newspapers.