<%Option Explicit%>
-->
<%
Function buildCal(m, y, cM, cH, cDW, cD, brdr)
dim c : c=-1 'page array count : initialized at -1
%>
<%
Dim mnArr : mnArr = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
Dim dymArr : dymArr = Array(31,0,31,30,31,30,31,31,30,31,30,31)
Dim dayArr : dayArr = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
Dim dayInt : dayInt = Weekday(Now()) - 1
Dim oD : oD = mnArr(m-1) & "/1/" & Year(Date()) 'MONTH (ex. "June") / NUMERICAL FIRST DAY OF MONTH ("1") / YYYY
Dim oDod : oDod = Weekday(oD) 'NUMERICAL DAY OF WEEK (1-7 : 1=Sunday) ON WHICH THE FIRST DAY OF MONTH LANDS
Dim todaydate : todaydate = dayArr(dayInt) & " " & mnArr(m-1) & " " & Day(Date()) & " " & Year(Date()) 'DAY OF WEEK + DATE OF DATE() (ex. "Saturday June 12 2004")
Dim x
Dim scanfortoday : scanfortoday = Day(Date())
Dim s : s = 0
Dim i : i = 1
if ((Year(Date()) Mod 100 <> 0) AND (Year(Date()) Mod 4 = 0)) OR (Year(Date()) Mod 400 = 0) Then
dymArr(1) = 29
else
dymArr(1) = 28
end if
Dim t : t = ""
t = t & "| " & mnArr(m-1) & " - " & y & " |
"
Do While s < 7
t = t & "| " & dayArr(s) & " | "
s = s + 1
Loop
t = t & "
"
Do While i <= 42
if ((i - oDod >= 0) AND (i - oDod < dymArr(m-1))) then
x = i - oDod + 1
else
x = " "
end if
Dim eventChkStr : eventChkStr = Month(Date()) & "/" & x
if (x = scanfortoday) then
x="" & x & ""
else
x="" & x & ""
end if
dim k : k = 0
dim eventStr : eventStr = ""
Do While k < (c + 1)
if eventChkStr = eventArr(k,0) then
eventStr = eventArr(k,1)
end if
k = k + 1
Loop
t = t & "" & x & "
" & eventStr & " | "
if ((i) Mod 7 = 0) AND (i < 36) then
t = t & "
"
end if
i = i + 1
Loop
buildCal = t & "
<%
Dim curMonth : curMonth = Month(Date())
Dim curYear : curYear = Year(Date())
response.write(buildCal(curMonth, curYear, "main", "month", "daysofweek", "days", 1))
%>