<% offset=Request.QueryString("offset") IF IsNumeric(offset) THEN offset=INT(offset) IF offset<0 THEN offset=0 END IF ELSE offset=0 END IF Set MyConn=Server.CreateObject("ADODB.Connection") MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/RaceSchedule.mdb") curDate = DateAdd("M",offset,Now) curMonth=Month(DateAdd("M",offset,Now)) curDOW = weekday(DateAdd("M",offset,Now)) curYear = Year(DateAdd("M",offset,Now)) nextMonth=Month(DateAdd("M",offset+1,Now)) previousMonth=Month(DateAdd("M",offset-1,Now)) nextYear = Year(DateAdd("M",offset+1,Now)) previousYear = Year(DateAdd("M",offset-1,Now)) curMonthStr="" & makeMonth(curMonth) & " " & curYear & "" sqlStr="SELECT ID,EventName,EventType,EventDescription,Channel,EventDate,StartTime,DisplayTime,DAY(EventDate) AS EventDay FROM Events WHERE MONTH(EventDate)=" & curMonth & "AND Year(EventDate)=" & curYear & " ORDER By EventDate, StartTime, Channel" dataDate = DateAdd("D",1-curDOW,curDate) dataMonth=Month(dataDate) Set Events=MyConn.Execute(sqlStr) IF NOT curMonth = dataMonth OR day(dataDate) = 1 THEN dataDay=Day(dataDate) dataYear=Year(dataDate) dataDOW=WeekDay(dataDate) ELSE endFlag=0 WHILE NOT endFlag=1 dataDate= DateAdd("D",-7,dataDate) dataMonth=Month(dataDate) IF NOT curMonth=dataMonth OR day(dataDate) = 1 THEN endFlag=1 END IF WEND dataDay=Day(dataDate) dataYear=Year(dataDate) dataDOW=WeekDay(dataDate) END IF memDay=DateSerial(1990,1,1) IF curMonth=5 THEN memDay=DateSerial(curYear,5,31) memDayDOW=WeekDay(memDay) IF NOT memDayDOW=2 THEN IF memDayDOW=1 THEN memDay=DateSerial(curYear,5,25) ELSE memDay=DateAdd("D", 2-memDayDOW,memDay) END IF END IF ' Response.Write(Day(memDay) & "/" & Month(memDay) & "/" & YEAR(memDay)) END IF labDay=DateSerial(1990,1,1) IF curMonth=9 THEN labDay=DateSerial(curYear,9,1) labDayDOW=WeekDay(labDay) IF labDayDOW=1 THEN labDay=DateSerial(curYear,9,2) END IF IF labDayDOW>2 THEN labDay=DateSerial(curYear,9,10-labdayDOW) END IF ' Response.Write(Day(labDay) & "/" & Month(labDay) & "/" & YEAR(labDay)) END IF %> <% Function makeTDBack(monthVal,dayVal,dowVal) ' Response.Write("HERE
") retStr="#333333" IF curMonth=monthVal THEN retStr="#FFFFFF" ' IF dowVal=1 OR dowVal=6 OR dowVal=7 OR dowVal=2 THEN IF dowVal=1 OR dowVal=7 OR dowVal=6 AND NOT (dowVal=6 AND monthVal=4) THEN tempDt=DateSerial(curYear,monthVal,dayVal) IF monthVal>4 AND monthVal<10 THEN retStr="#990099" END IF IF monthVal=4 AND dayVal>=12 THEN retStr="#990099" END IF IF monthVal=10 AND dayVal<=26 THEN retStr="#990099" END IF IF retStr="#990099" THEN IF tempDt=memDay THEN retStr="#FFFFFF" END IF IF tempDt=labDay THEN retStr="#FFFFFF" END IF END IF END IF ELSE retStr="#333333" END IF ' Response.Write(dayVal & " " & retStr & "
") makeTDBack=retStr End Function Function makeDtColor(monthVal,dayVal,dowVal) retStr="offMonth" IF curMonth=monthVal THEN retStr="onMonth" tempDt=DateSerial(curYear,monthVal,dayVal) IF dowVal=1 OR dowVal=7 OR dowVal=6 AND NOT (dowVal=6 AND monthVal=4) THEN IF monthVal>4 AND monthVal<10 THEN retStr="liveMonth" END IF IF monthVal=4 AND dayVal>=12 THEN retStr="liveMonth" END IF IF monthVal=10 AND dayVal<=26 THEN retStr="liveMonth" END IF IF retStr="liveMonth" THEN IF tempDt=memDay THEN retStr="onMonth" END IF IF tempDt=labDay THEN retStr="onMonth" END IF END IF END IF ELSE retStr="offMonth" END IF makeDtColor=retStr End Function Function makeColorLink(eType,monthVal,dayVal,dowVal) IF eType=1 THEN makeColorLink="red-link" END IF IF eType=3 THEN makeColorLink="green-link" END IF IF eType=2 THEN makeColorLink="blue-link" IF dowVal=1 OR dowVal=6 OR dowVal=7 AND NOT (dowVal=6 AND monthVal=4) THEN IF monthVal>4 OR monthVal<12 THEN makeColorLink="darkblue-link" END IF IF monthVal=4 AND dayVal>=12 THEN makeColorLink="darkblue-link" END IF IF monthVal=10 AND dayVal<=26 THEN makeColorLink="darkblue-link" END IF END IF END IF IF eType=4 THEN makeColorLink="yellow-link" END IF End Function Function makeMonth(moVal) IF moVal=1 THEN makeMonth="January" END IF IF moVal=2 THEN makeMonth="February" END IF IF moVal=3 THEN makeMonth="March" END IF IF moVal=4 THEN makeMonth="April" END IF IF moVal=5 THEN makeMonth="May" END IF IF moVal=6 THEN makeMonth="June" END IF IF moVal=7 THEN makeMonth="July" END IF IF moVal=8 THEN makeMonth="August" END IF IF moVal=9 THEN makeMonth="September" END IF IF moVal=10 THEN makeMonth="October" END IF IF moVal=11 THEN makeMonth="November" END IF IF moVal=12 THEN makeMonth="December" END IF End Function %>

<% endFlag=0 tdCount=1 WHILE endFlag=0 curEvents="" brkStr="" simFlag=0 IF curMonth=dataMonth THEN Events.Filter="EventDay=" & dataDay IF NOT Events.EOF THEN WHILE NOT Events.EOF IF Events.Fields.Item("EventType").Value=2 THEN ' IF simFlag=0 THEN curEvents=curEvents & brkStr & "" & Events.Fields.Item("EventName").Value & "" brkStr=" " ' END IF ' simFlag=1 ELSE curEvents=curEvents & brkStr & "" & Events.Fields.Item("EventName").Value & "" brkStr=" " END IF Events.MoveNext() WEND END IF END IF %> <% IF tdCount=1 THEN %> <% END IF%> <% IF tdCount=7 THEN %> <% END IF%> <% dataDate=DateAdd("D",1,dataDate) dataMonth=Month(dataDate) dataDay=Day(dataDate) dataYear=Year(dataDate) dataDOW=WeekDay(dataDate) IF NOT curMonth=dataMonth AND weekday(dataDate)=1 THEN endFlag=1 END IF tdCOunt=tdCount+1 IF tdCount>7 THEN tdCount=1 END IF WEND %> <%=curMonthStr%> S M T W R F S <%= dataDay%>