<% Function fncGetDayOrdinal( _ byVal intDay _ ) ' Accepts a day of the month as an integer and returns the ' appropriate suffix Dim strOrd Select Case intDay Case 1, 21, 31 strOrd = "st" Case 2, 22 strOrd = "nd" Case 3, 23 strOrd = "rd" Case Else strOrd = "th" End Select fncGetDayOrdinal = strOrd End Function ' fncGetDayOrdinal Function fncFmtDate( _ byVal strDate, _ byRef strFormat _ ) ' Accepts strDate as a valid date/time, ' strFormat as the output template. ' The function finds each item in the ' template and replaces it with the ' relevant information extracted from strDate ' Template items (example) ' %m Month as a decimal (02) ' %B Full month name (February) ' %b Abbreviated month name (Feb ) ' %d Day of the month (23) ' %O Ordinal of day of month (eg st or rd or nd) ' %j Day of the year (54) ' %Y Year with century (1998) ' %y Year without century (98) ' %w Weekday as integer (0 is Sunday) ' %a Abbreviated day name (Fri) ' %A Weekday Name (Friday) ' %H Hour in 24 hour format (24) ' %h Hour in 12 hour format (12) ' %N Minute as an integer (01) ' %n Minute as optional if minute <> 0 ' %S Second as an integer (55) ' %P AM/PM Indicator (PM) On Error Resume Next Dim intPosItem Dim int12HourPart Dim str24HourPart Dim strMinutePart Dim strSecondPart Dim strAMPM ' Insert Month Numbers strFormat = Replace(strFormat, "%m", _ DatePart("m", strDate), 1, -1, vbBinaryCompare) ' Insert non-Abbreviated Month Names strFormat = Replace(strFormat, "%B", _ MonthName(DatePart("m", strDate), _ False), 1, -1, vbBinaryCompare) ' Insert Abbreviated Month Names strFormat = Replace(strFormat, "%b", _ MonthName(DatePart("m", strDate), _ True), 1, -1, vbBinaryCompare) ' Insert Day Of Month strFormat = Replace(strFormat, "%d", _ DatePart("d",strDate), 1, _ -1, vbBinaryCompare) ' Insert Day of Month Ordinal (eg st, th, or rd) strFormat = Replace(strFormat, "%O", _ fncGetDayOrdinal(Day(strDate)), _ 1, -1, vbBinaryCompare) ' Insert Day of Year strFormat = Replace(strFormat, "%j", _ DatePart("y",strDate), 1, _ -1, vbBinaryCompare) ' Insert Long Year (4 digit) strFormat = Replace(strFormat, "%Y", _ DatePart("yyyy",strDate), 1, _ -1, vbBinaryCompare) ' Insert Short Year (2 digit) strFormat = Replace(strFormat, "%y", _ Right(DatePart("yyyy",strDate),2), _ 1, -1, vbBinaryCompare) ' Insert Weekday as Integer (eg 0 = Sunday) strFormat = Replace(strFormat, "%w", _ DatePart("w",strDate,1), 1, _ -1, vbBinaryCompare) ' Insert Abbreviated Weekday Name (eg Sun) strFormat = Replace(strFormat, "%a", _ WeekDayName(DatePart("w",strDate,1),True), 1, _ -1, vbBinaryCompare) ' Insert non-Abbreviated Weekday Name strFormat = Replace(strFormat, "%A", _ WeekDayName(DatePart("w",strDate,1),False), 1, _ -1, vbBinaryCompare) ' Insert Hour in 24hr format str24HourPart = DatePart("h",strDate) If Len(str24HourPart) < 2 then str24HourPart = "0" & _ str24HourPart strFormat = Replace(strFormat, "%H", str24HourPart, 1, _ -1, vbBinaryCompare) ' Insert Hour in 12hr format int12HourPart = DatePart("h",strDate) Mod 12 If int12HourPart = 0 then int12HourPart = 12 strFormat = Replace(strFormat, "%h", int12HourPart, 1, _ -1, vbBinaryCompare) ' Insert Minutes strMinutePart = DatePart("n",strDate) If Len(strMinutePart) < 2 then _ strMinutePart = "0" & strMinutePart strFormat = Replace(strFormat, "%N", strMinutePart, _ 1, -1, vbBinaryCompare) ' Insert Optional Minutes If CInt(strMinutePart) = 0 then strFormat = Replace(strFormat, "%n", "", 1, _ -1, vbBinaryCompare) Else If CInt(strMinutePart) < 10 then _ strMinutePart = "0" & strMinutePart strMinutePart = ":" & strMinutePart strFormat = Replace(strFormat, "%n", strMinutePart, _ 1, -1, vbBinaryCompare) End if ' Insert Seconds strSecondPart = DatePart("s",strDate) If Len(strSecondPart) < 2 then _ strSecondPart = "0" & strSecondPart strFormat = Replace(strFormat, "%S", strSecondPart, 1, _ -1, vbBinaryCompare) ' Insert AM/PM indicator If DatePart("h",strDate) >= 12 then strAMPM = "PM" Else strAMPM = "AM" End If strFormat = Replace(strFormat, "%P", strAMPM, 1, _ -1, vbBinaryCompare) fncFmtDate = strFormat 'If there is an error output its value If err.Number <> 0 then Response.Clear Response.Write "ERROR " & err.Number & _ ": fmcFmtDate - " & err.Description Response.Flush Response.End End if End Function ' fncFmtDate %> Commonwealth Games 2005 Mill Mountain Hill Climb Time Trial

back to 2006 games
2005 Citizens Results by Time
0:10:04 Donaldson, Jim Men 30-39 Roanoke VA 150 Gold
0:10:10 Schimizzi, Warren Men 30-39 Roanoke VA 134 Silver
0:10:47 Grant, Kyle Men 40-49 Roanoke VA 133 Gold
0:11:01 Showalter, J Michael Men 25-29 Roanoke VA 148 Gold
0:11:20 Snyder, John Men 18-24 Fincastle VA 136 Gold
0:11:35 Privitera, Russell Men 30-39 Roanoke VA 141 Bronze
0:11:50 Fisher, Todd Men 30-39 Roanoke VA 147 4
0:12:10 Cates, Steve Men 40-49 Roanoke VA 139 Silver
0:12:25 Lash, Steven Men 40-49 Roanoke VA 151 Bronze
0:12:56 Miles, Tim Men 40-49 Lynchburg VA 137 4
0:13:15 Ramsey, David Men 30-39 Christiansburg VA 144 5
0:13:23 Zeigler, Gordie Men 30-39 Roanoke VA 145 6
0:13:43 McLemore, Robert Men 40-49 Maidens VA 142 5
0:13:48 Henry, C Alan Men 50-59 Roanoke VA 146 Gold
0:13:50 Heslip, Lewis Men 40-49 Blacksburg VA 149 6
0:15:00 Lynn, William Men 30-39 Roanoke VA 138 7
0:15:10 Dewey, Albert Men 40-49 Luray VA 143 7
0:15:57 Clingenpeel, Tim Men 30-39 Roanoke VA 140 8
0:19:05 Green, Anne Women 40+ Vinton VA 152 Gold
0:21:05 Schimizzi, Paula Women 30-39 Raonoke VA 135 Gold
0:22:10 Grant, Melissa Women 30-39 Roanoke VA 132 Silver
DNS Herron, Gregory Men 30-39 Roanoke VA 131 DNS

back to 2006 games