<%@ Language=VBScript %>
<%Option Explicit%>
<%
Dim oXMLDoc, iReqMonth, strOpt
Dim iReqYear, sReqDate, curMonth, curYear, curDate
Dim refStr, scriptName, iRetVal, iMonthStartDay, iWeekDay
Dim iDaysInMonth, iMonthNum, iYear, bShowWeekView
Dim WeekView_CellBgColor, eventid, bEventFound
WeekView_CellBgColor = "#ffffff"
bShowWeekView = "false"
Dim srcfile
srcfile = Server.MapPath("events.xml")
Set oXMLDoc = Server.CreateObject("Microsoft.XMLDOM")
Dim bResult
oXMLDoc.async = False
bResult = oXMLDoc.Load(srcfile)
Dim oXMlDocElement
if (oXMLDoc.parseError.errorCode <> 0) then
'error occurred on load of document
Dim msg
msg = "Description: " & oXMLDoc.parseError.reason & vbCRLF
'msg = msg & "Source text: " & oXMLDoc.parseError.srcText
msgbox msg
end if
RefStr = Request.ServerVariables("HTTP_REFERER")
scriptName = Request.ServerVariables("SCRIPT_NAME")
iRetVal = InStr(RefStr, scriptName)
Function GetIDNum(sYear, sMonth, sDay)
Dim str1,str2,str3
If Len(Trim(sMonth)) <> 2 Then
str1 = "0" & sMonth
Else
str1 = sMonth
End If
str3 = Right(sYear, 2)
If Len(Trim(sDay)) <> 2 Then
str2 = "0" & sDay
Else
str2 = sDay
End If
GetIDNum = str1 & str2 & str3
End Function
Function ParseXML_WeekView( iReqYear, iReqMonth, iReqDay )
set oXMlDocElement = oXMLDoc.documentElement
Dim root, item, oYearNodeList, oList, eventItem, eventURL, EventYearList ,eventDescription, eventImage, m, x
Dim y, EventText, t, iEventNum, eventfound, bYearFound, bDayFound, oMonthList, oYearNode, iNum2, ReqIDNum, oItem
Dim eventname, TitleFormat, DescFormat
ReqIDNum = GetIDNum(iReqYear, iReqMonth, iReqDay)
For m = 0 to ( oXMlDocElement.childNodes.length - 1 )
bYearFound = False
set oYearNode = oXMlDocElement.childNodes.item(m).childNodes.item(0) 'year
if CInt(oYearNode.Text) = CInt(iReqYear) then
bYearFound = True
For x = 1 to ( oXMLDocElement.childNodes.item(m).childNodes.length - 1)
set root = oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.item(0) 'Month
if CInt(root.text) = CInt(iReqMonth) then
eventfound = "false"
Dim strMonthText
strMonthText = ucase(GetMonthName(root.text))
Response.Write "
" & strMonthText & " " & iReqDay & "
"
For y = 1 to (oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.length -1 )
set oItem = oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.item(y)
if left ( oItem.childnodes.item(0).text, 6 ) = ReqIDNum then
eventfound = "true"
eventid = oItem.childnodes.item(0).text
eventname = oItem.childnodes.item(1).text
eventURL = oItem.childnodes.item(2).text
eventDescription = oItem.childnodes.item(3).text
if Len(eventDescription) > 125 then
eventDescription = Left(eventDescription, 125) & "..."
end if
eventImage = oItem.childnodes.item(8).text
Response.Write " " & Eventname & ""
Response.Write " " & eventDescription & " "
'if eventImage <> "" then
' Response.Write ""
'end if
end if
next
end if
next
end if
next
if eventfound = "true" then
Response.Write "
"
'end if
end if
end if
'else
'end if
'next
Set root = Nothing
Set oList = Nothing
Set item = Nothing
Set oYearNode = Nothing
'next
Set oXMlDocElement = Nothing
ParseXML_WeekView = true
End Function
Function ParseXML (iReqYear, iReqMonth, iReqDay )
set oXMlDocElement = oXMLDoc.documentElement
Dim root, item, oYearNode, oList, eventItem, eventURL, EventYearList, m, x, y, oItem, strResponse, ReqIdNum, iEventNum, EventText, ID, URL, t
strResponse = ""
bEventFound = "false"
iEventNum = 1
ReqIDNum = GetIDNum(iReqYear, iReqMonth, iReqDay)
For m = 0 to ( oXMlDocElement.childNodes.length - 1 )
set oYearNode = oXMlDocElement.childNodes.item(m).childNodes.item(0) 'year
if CInt(oYearNode.Text) = CInt(iReqYear) then
For x = 1 to ( oXMLDocElement.childNodes.item(m).childNodes.length - 1)
set root = oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.item(0) 'Month
if CInt(root.text) = CInt(iReqMonth) then
For y = 1 to (oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.length -1 )
set oItem = oXMlDocElement.childNodes.item(m).childNodes.item(x).childNodes.item(y)
if CInt(iEventNum) <= 3 then
if left ( oItem.childnodes.item(0).text, 6 ) = ReqIDNum then
bEventFound = "true"
if iEventNum = "3" then
strResponse = strResponse & " more... "
else
ID = oItem.childnodes.item(0).text
URL = oItem.childnodes.item(2).text
EventText = Left(oItem.childnodes.item(1).text, 10) & "..."
strResponse = strResponse & " " & EventText & " "
End if
iEventNum = iEventNum + 1
End if
end if
next
end if
next
end if
next
Set root = Nothing
Set oList = Nothing
Set item = Nothing
ParseXML = strResponse
Set oYearNode = Nothing
Set oXMlDocElement = Nothing
End Function
Function GetWeekInfo(iMonth, iYear)
Dim a, num_days, strWeekInfo, mName, iMonthStart, iNextMonth, strNextMonth
Dim iEndOfWeek, iPriorMonth, strPriorMonth, iNumDaysPriorMonth, iVal
mName = GetAbbrMonthName(iMonth)
num_days = DaysInMonth(iMonth)
iMonthStart = ( 7 - Weekday( iMonth & "/1/" & iYear, vbSunday ) )
select case iMonth
case 1
iPriorMonth = 12
case else
iPriorMonth = (iMonth - 1)
end select
a = 1
iNumDaysPriorMonth = DaysInMonth(iPriorMonth)
strPriorMonth = GetAbbrMonthName(iPriorMonth)
select case iMonth
case 12
iNextMonth = 1
case else
iNextMonth = (iMonth + 1)
end select
strNextMonth = GetAbbrMonthName(iNextMonth)
select case Weekday( iMonth & "/1/" & iYear, vbSunday )
case 1
iVal = 0
case 2
iVal = 0
case 3
iVal = 1
case 4
iVal = 2
case 5
iVal = 3
case 6
iVal = 4
case 7
iVal = 5
end select
'Response.Write "Weekday = " & Weekday( iMonth & "/1/" & iYear, vbSunday ) & vbCRLF
'Response.Write "iMonthStart = " & iMonthStart & vbCRLF
if num_days <> "" then
while CInt(a) <= CInt(num_days)
if a = 1 then
iEndOfWeek = (a + iMonthStart)
if iMonthStart <> 6 then
strWeekInfo = strWeekinfo & strPriorMonth & " " & (iNumDaysPriorMonth - iVal) & " - " & mName & " " & iEndOfWeek & ";"
else
strWeekInfo = strWeekinfo & mName & " " & a & " - " & mName & " " & iEndOfWeek & ";"
end if
else
iEndOfWeek = (a + 6)
if CInt(iEndOfWeek) <= CInt(num_days) then
strWeekInfo = strWeekinfo & mName & " " & a & " - " & mName & " " & iEndOfWeek & ";"
else
strWeekInfo = strWeekinfo & mName & " " & a & " - " & strNextMonth & " " & CInt(iEndOfWeek) - CInt(num_days) & ";"
end if
end if
a = (iEndOfWeek + 1)
wend
end if
GetWeekInfo = strWeekInfo
End Function
Function DaysInMonth( iMonth )
Select case CInt(iMonth)
case 1
DaysInMonth = 31
case 2
Dim bLeap
bLeap = IsDate("02/29/" & iYear)
If bLeap = true then
DaysInMonth = 29
' The Year is a Leap Year
Else
DaysInMonth = 28
'The Year is not a Leap Year
End If
case 3
DaysInMonth = 31
case 4
DaysInMonth = 30
case 5
DaysInMonth = 31
case 6
DaysInMonth = 30
case 7
DaysInMonth = 31
case 8
DaysInMonth = 31
case 9
DaysInMonth = 30
case 10
DaysInMonth = 31
case 11
DaysInMonth = 30
case 12
DaysInMonth = 31
end select
End Function
Function GetMonthNum( strMonth )
Select case lcase(strMonth)
case "jan"
GetMonthNum = "1"
case "feb"
GetMonthNum = "2"
case "mar"
GetMonthNum = "3"
case "apr"
GetMonthNum = "4"
case "may"
GetMonthNum = "5"
case "jun"
GetMonthNum = "6"
case "jul"
GetMonthNum = "7"
case "aug"
GetMonthNum = "8"
case "sep"
GetMonthNum = "9"
case "oct"
GetMonthNum = "10"
case "nov"
GetMonthNum = "11"
case "dec"
GetMonthNum = "12"
end select
End Function
Function GetAbbrMonthName ( iMonth )
Select case iMonth
case "1"
GetAbbrMonthName = "Jan"
case "2"
GetAbbrMonthName = "Feb"
case "3"
GetAbbrMonthName = "Mar"
case "4"
GetAbbrMonthName = "Apr"
case "5"
GetAbbrMonthName = "May"
case "6"
GetAbbrMonthName = "Jun"
case "7"
GetAbbrMonthName = "Jul"
case "8"
GetAbbrMonthName = "Aug"
case "9"
GetAbbrMonthName = "Sep"
case "10"
GetAbbrMonthName = "Oct"
case "11"
GetAbbrMonthName = "Nov"
case "12"
GetAbbrMonthName = "Dec"
end select
End Function
Function GetMonthName ( iMonth )
Select case iMonth
case "1"
GetMonthName = "January"
case "2"
GetMonthName = "February"
case "3"
GetMonthName = "March"
case "4"
GetMonthName = "April"
case "5"
GetMonthName = "May"
case "6"
GetMonthName = "June"
case "7"
GetMonthName = "July"
case "8"
GetMonthName = "August"
case "9"
GetMonthName = "September"
case "10"
GetMonthName = "October"
case "11"
GetMonthName = "November"
case "12"
GetMonthName = "December"
end select
End Function
curMonth = month(date())
curYear = Year(date())
if ( iRetVal <> 0 ) then
if lcase(Request.Form("WSCECDropdown_week")) <> "select_week" then
' - - - - - - user has selected a specific week - - - - - - - - - - - -- -- - - -
bShowWeekView = "true"
Dim strReqWeek, iDash, strFirstDay, strLastDay, iFirstMonth, iLastMonth
Dim iDaysFirstMonth, iDaysLastMonth, iDayInFirstDate, iDayInLastDate, iYearInFirstDate, iYearInLastDate
iReqMonth = Request.Form("WSCECDropdown_Month")
iMonthNum = iReqMonth
iReqYear = Request.Form("WSCECDropdown_Year")
sReqDate = iReqMonth & "/1/" & iReqYear
iYear = iReqYear
iWeekDay = Weekday(sReqDate, vbSunday)
strReqWeek = Request.Form("WSCECDropdown_week")
iDash = InStr(strReqWeek,"-")
strFirstDay = Left(strReqWeek, (iDash - 2) )
strLastDay = Right(strReqWeek, Len(strReqWeek) - (iDash + 1) )
iFirstMonth = GetMonthNum(Left(strFirstDay, 3))
iDayInFirstDate = Trim(right(Trim(strFirstDay), 2))
iDayInLastDate = Trim(right(Trim(strLastDay), 2))
iLastMonth = GetMonthNum(Left(strLastDay, 3))
iDaysLastMonth = DaysInMonth( iLastMonth )
iDaysFirstMonth = DaysInMonth( iFirstMonth )
if iFirstMonth = "12" and iLastMonth = "1" and iReqMonth = "1" then
iYearInFirstDate = ( iReqYear - 1 )
iYearInLastDate = ( iReqYear )
elseif iFirstMonth = "12" and iLastMonth = "1" and iReqMonth = "12" then
iYearInFirstDate = ( iReqYear )
iYearInLastDate = ( iReqYear + 1 )
else
iYearInFirstDate = ( iReqYear )
iYearInLastDate = ( iReqYear )
end if
Dim EventDay1Month, EventDay1Day, EventDay1Year
Dim EventDay2Month, EventDay2Day, EventDay2Year
Dim EventDay3Month, EventDay3Day, EventDay3Year
Dim EventDay4Month, EventDay4Day, EventDay4Year
Dim EventDay5Month, EventDay5Day, EventDay5Year
Dim EventDay6Month, EventDay6Day, EventDay6Year
Dim EventDay7Month, EventDay7Day, EventDay7Year
Dim iNum1
EventDay1Month = iFirstMonth
EventDay1Day = iDayInFirstDate
EventDay1Year = iYearInFirstDate
if iFirstMonth = iLastMonth then
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iLastMonth)
EventDay3Month = CInt(iLastMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(EventDay1Year)
EventDay3Year = CInt(EventDay1Year)
EventDay4Year = CInt(EventDay1Year)
EventDay5Year = CInt(EventDay1Year)
EventDay6Year = CInt(EventDay1Year)
EventDay7Year = CInt(EventDay1Year)
else
if iYearInFirstDate <> iYearInLastDate then
iNum1 = (CInt(iDaysfirstMonth) - CInt(iDayInFirstDate) + 1)
select case iNum1
case 1
EventDay2Day = CInt(iDayInLastDate) - 5
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iLastMonth)
EventDay3Month = CInt(iLastMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinLastDate)
EventDay3Year = CInt(iYearinLastDate)
EventDay4Year = CInt(iYearinLastDate)
EventDay5Year = CInt(iYearinLastDate)
EventDay6Year = CInt(iYearinLastDate)
EventDay7Year = CInt(iYearinLastDate)
case 2
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(iDayInLastDate) - 4
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iLastMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinFirstDate)
EventDay3Year = CInt(iYearinLastDate)
EventDay4Year = CInt(iYearinLastDate)
EventDay5Year = CInt(iYearinLastDate)
EventDay6Year = CInt(iYearinLastDate)
EventDay7Year = CInt(iYearinLastDate)
case 3
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(iDayInLastDate) - 3
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinFirstDate)
EventDay3Year = CInt(iYearinFirstDate)
EventDay4Year = CInt(iYearinLastDate)
EventDay5Year = CInt(iYearinLastDate)
EventDay6Year = CInt(iYearinLastDate)
EventDay7Year = CInt(iYearinLastDate)
case 4
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(iDayInLastDate) - 2
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinFirstDate)
EventDay3Year = CInt(iYearinFirstDate)
EventDay4Year = CInt(iYearinFirstDate)
EventDay5Year = CInt(iYearinLastDate)
EventDay6Year = CInt(iYearinLastDate)
EventDay7Year = CInt(iYearinLastDate)
case 5
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(iDayInLastDate) - 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iFirstMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinFirstDate)
EventDay3Year = CInt(iYearinFirstDate)
EventDay4Year = CInt(iYearinFirstDate)
EventDay5Year = CInt(iYearinFirstDate)
EventDay6Year = CInt(iYearinLastDate)
EventDay7Year = CInt(iYearinLastDate)
case 6
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(iDayInLastDate)
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iFirstMonth)
EventDay6Month = CInt(iFirstMonth)
EventDay7Month = CInt(iLastMonth)
EventDay2Year = CInt(iYearinFirstDate)
EventDay3Year = CInt(iYearinFirstDate)
EventDay4Year = CInt(iYearinFirstDate)
EventDay5Year = CInt(iYearinFirstDate)
EventDay6Year = CInt(iYearinFirstDate)
EventDay7Year = CInt(iYearinLastDate)
end select
else
iNum1 = (CInt(iDaysfirstMonth) - CInt(iDayInFirstDate) + 1)
select case iNum1
case 1
EventDay2Day = CInt(iDayInLastDate) - 5
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iLastMonth)
EventDay3Month = CInt(iLastMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
case 2
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(iDayInLastDate) - 4
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iLastMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
case 3
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(iDayInLastDate) - 3
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iLastMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
case 4
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(iDayInLastDate) - 2
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iLastMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
case 5
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(iDayInLastDate) - 1
EventDay7Day = CInt(EventDay6Day) + 1
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iFirstMonth)
EventDay6Month = CInt(iLastMonth)
EventDay7Month = CInt(iLastMonth)
case 6
EventDay2Day = CInt(EventDay1Day) + 1
EventDay3Day = CInt(EventDay2Day) + 1
EventDay4Day = CInt(EventDay3Day) + 1
EventDay5Day = CInt(EventDay4Day) + 1
EventDay6Day = CInt(EventDay5Day) + 1
EventDay7Day = CInt(iDayInLastDate)
EventDay2Month = CInt(iFirstMonth)
EventDay3Month = CInt(iFirstMonth)
EventDay4Month = CInt(iFirstMonth)
EventDay5Month = CInt(iFirstMonth)
EventDay6Month = CInt(iFirstMonth)
EventDay7Month = CInt(iLastMonth)
end select
EventDay2Year = CInt(EventDay1Year)
EventDay3Year = CInt(EventDay1Year)
EventDay4Year = CInt(EventDay1Year)
EventDay5Year = CInt(EventDay1Year)
EventDay6Year = CInt(EventDay1Year)
EventDay7Year = CInt(EventDay1Year)
end if
end if
else
'user has selected month view
iReqMonth = Request.Form("WSCECDropdown_Month")
iMonthNum = iReqMonth
iReqYear = Request.Form("WSCECDropdown_Year")
sReqDate = iReqMonth & "/1/" & iReqYear
iYear = iReqYear
iWeekDay = Weekday(sReqDate, vbSunday)
end if
else
if curMonth = "" then
curMonth = month(date())
end if
if curYear = "" then
curYear = Year(date())
end if
iMonthNum = CInt(curMonth)
iYear = CInt(curYear)
sReqDate = iMonthNum & "/1/" & iYear
iWeekDay = Weekday(sReqDate, vbSunday)
iReqMonth = iMonthNum
iReqYear = iYear
end if
%>
Events , caribbean photos, vitamins, free, pictures, photo, trading photos, picture
<%
Dim strMonth
Dim strYear
if iRetVal <> 0 then
strMonth = GetMonthName(iReqMonth)
strYear = iReqYear
else
strMonth = GetMonthName(curMonth)
strYear = curYear
end if
%><%=strMonth%> <%=strYear%>
Sun
Mon
Tue
Wed
Thu
Fri
Sat
<%
Dim k
iWeekDay = CInt(iWeekDay)
k = 1
if iWeekDay > 1 then
For k = 1 to (iWeekDay - 1)
'code here for determining first day of month
Response.Write "
" & vbCRLF
next
else
end if
Dim j
Dim h
Dim iDayNum
Dim NumDays
Dim strRet
Dim bRet
NumDays = DaysInMonth(iMonthNum)
iDayNum = 1
Dim strDaysHTML
strDaysHTML = ""
j = 1
h = 1
For h = k to 7
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
next
Response.Write "
"
For j = 8 to 14
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
next
Response.Write "
"
For j = 15 to 21
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
next
Response.Write "
"
For j = 22 to 28
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
next
if CInt(NumDays) >= 28 then
Response.Write "
"
For j = 29 to 35
if CInt(iDayNum) <= CInt(NumDays) then
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
else
Response.Write "
"
iDayNum = iDayNum + 1
end if
next
if CInt(iDayNum) <= CInt(NumDays) then
Response.Write "
"
For j = 36 to 42
if CInt(iDayNum) <= CInt(NumDays) then
Response.Write "
"
strRet = ParseXML(iReqYear, iReqMonth, iDayNum)
if bEventFound = "true" then
Response.Write "" & iDayNum & ""
else
Response.Write iDayNum & ""
end if
Response.Write strRet
Response.Write "
"
iDayNum = iDayNum + 1
else
Response.Write "
"
iDayNum = iDayNum + 1
end if
next
end if
end if
Set oXMLDoc = Nothing
%><%else%>
<%
for i = 1 to 7
select case i
case 1
bRet = ParseXML_WeekView(EventDay1Year, EventDay1Month, EventDay1Day)
case 2
bRet = ParseXML_WeekView(EventDay2Year, EventDay2Month, EventDay2Day)
case 3
bRet = ParseXML_WeekView(EventDay3Year, EventDay3Month, EventDay3Day)
case 4
bRet = ParseXML_WeekView(EventDay4Year, EventDay4Month, EventDay4Day)
case 5
bRet = ParseXML_WeekView(EventDay5Year, EventDay5Month, EventDay5Day)
case 6
bRet = ParseXML_WeekView(EventDay6Year, EventDay6Month, EventDay6Day)
case 7
bRet = ParseXML_WeekView(EventDay7Year, EventDay7Month, EventDay7Day)
end select
next
Response.Write "
