<%
Sub performQuery()
sql = "SELECT Calendar.CalendarID, Calendar.Date,"
sql = sql & "Calendar.Title FROM Calendar WHERE Date>=#"&FormatDateTime(Now, 2)&"#"
sql = sql & " ORDER BY Calendar.Date"
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql, conn, 0, 1
End Sub
Sub printMonth()
if not rs2.eof then
%>
|
<%response.write(monthName(Month(rs2.Fields("Date"))))%>
|
<%
end if
End Sub
Function checkMonth(currentMonth)
if rs2.eof = true then
checkMonth = false
else
if Month(rs2.Fields("Date")) <> currentMonth then
checkMonth = false
else
checkMonth = true
end if
end if
End Function
performQuery()
%>
<%
printMonth()
%>
|
<%
if not rs2.eof then
curMon = Month(rs2.Fields("Date"))
end if
do while Not rs2.eof AND checkMonth(curMon)%>
<%response.write(rs2.Fields("Date"))%>
|
|
<%
curMon = Month(rs2.Fields("Date"))
rs2.movenext
loop
%>
|
<% printMonth() %>
|
<%
if not rs2.eof then
curMon = Month(rs2.Fields("Date"))
end if
do while Not rs2.eof AND checkMonth(curMon)%>
<%response.write(rs2.Fields("Date"))%>
|
|
<%
curMon = Month(rs2.Fields("Date"))
rs2.movenext
loop
%>
|
<% printMonth() %>
|
<%
if not rs2.eof then
curMon = Month(rs2.Fields("Date"))
end if
do while Not rs2.eof AND checkMonth(curMon)%>
<%response.write(rs2.Fields("Date"))%>
|
|
<%
curMon = Month(rs2.Fields("Date"))
rs2.movenext
loop
%>
|
<% printMonth() %>
|
<%
if not rs2.eof then
curMon = Month(rs2.Fields("Date"))
end if
do while Not rs2.eof AND checkMonth(curMon)%>
<%response.write(rs2.Fields("Date"))%>
|
|
<%
curMon = Month(rs2.Fields("Date"))
rs2.movenext
loop
%>
|
<%rs2.close%>
