If
you know of a venue that offers live classic rock music, please let them
know about All 4 It!, or send us an
email to request an All 4 It! Promo Package.
Check
out the calendar below for upcoming scheduled events.
|
[Prev Month] |
|
<% = strMonthName & " " & intThisYear %>
|
Admin |
[Next Month] |
Sunday |
Monday |
Tuesday |
Wednesday |
Thursday |
Friday |
Saturday |
|
<%
' Initialize the end of rows flag to false
EndRows = False
Response.Write vbCrLf
' Loop until all the rows are exhausted
Do While EndRows = False
' Start a table row
Response.Write " " & vbCrLf
' This is the loop for the days in the week
For intLoopDay = cSUN To cSAT
' If the first day is not sunday then print the last days of previous month in grayed font
If intFirstWeekDay > cSUN Then
Write_TD LastMonthDate, "NON"
LastMonthDate = LastMonthDate + 1
intFirstWeekDay = intFirstWeekDay - 1
' The month starts on a sunday
Else
' If the dates for the month are exhausted, start printing next month's dates
' in grayed font
If intPrintDay > intLastDay Then
Write_TD NextMonthDate, "NON"
NextMonthDate = NextMonthDate + 1
EndRows = True
Else
' If last day of the month, flag the end of the row
If intPrintDay = intLastDay Then
EndRows = True
End If
dToday = CDate(intThisMonth & "/" & intPrintDay & "/" & intThisYear)
If NOT Rs.EOF Then
' Set events flag to false. This means the day has no event in it
bEvents = False
Do While NOT Rs.EOF AND bEvents = False
' If the date falls within the range of dates in the recordset, then
' the day has an event. Make the events flag True
If dToday >= Rs("Start_Date") AND dToday <= Rs("End_Date") Then
' Print the date in a highlighted font
IF Session("Admin") = 1 THEN
' MODIFY CODE SO LISTS MULTIPLE EVENTS FOR ONE DAY
Response.Write " "
Response.Write "" & intPrintDay & " [Add/Edit] "
WHILE NOT RS.EOF
IF dToday >= Rs("Start_Date") AND dToday <= Rs("End_Date") Then
Response.Write "" & Rs("Start_Time") & " " & Rs("Event_Title") & " "
END IF
IF NOT RS.EOF THEN
RS.MoveNext
END IF
WEND
Response.Write " | " & vbCrLf
ELSE
' MODIFY CODE SO LISTS MULTIPLE EVENTS FOR ONE DAY
Response.Write " "
Response.Write "" & intPrintDay & " "
WHILE NOT RS.EOF
IF dToday >= Rs("Start_Date") AND dToday <= Rs("End_Date") Then
Response.Write "" & Rs("Start_Time") & " " & Rs("Event_Title") & " "
END IF
IF NOT RS.EOF THEN
RS.MoveNext
END IF
WEND
Response.Write " | " & vbCrLf
' OLD CODE - ONLY LISTS ONE EVENT FOR THE DAY
' Write_TD "" & intPrintDay & "
" & Rs("Start_Time") & " " & Rs("Event_Title") & " ", "HL"
END IF
bEvents = True
' If the Start date is greater than the date itself, there is no point
' checking other records. Exit the loop
ElseIf dToday < Rs("Start_Date") Then
Exit Do
' Move to the next record
Else
Rs.MoveNext
End If
Loop
' Checks for that day
Rs.MoveFirst
End If
' If the event flag is not raise for that day, print it in a plain font
If bEvents = False Then
IF Session("Admin") = 1 THEN
Write_TD " " & intPrintDay & " [Add/Edit]", "SOME"
ELSE
Write_TD " " & intPrintDay & "", "SOME"
END IF
End If
End If
' Increment the date. Done once in the loop.
intPrintDay = intPrintDay + 1
End If
' Move to the next day in the week
Next
Response.Write " " & vbCrLf
Loop
Rs.Close
Set Rs = Nothing
%>
|
|
|