News Archives

  • You are here:
  • Home
  • News Archives
  • University Events: ” & monthName(currentMonth) & ” and ” & monthName(nextMonth) & ” ” & currentYear & “

University Events: ” & monthName(currentMonth) & ” and ” & monthName(nextMonth) & ” ” & currentYear & “

“” Then
strSQL = “Select to_date(WRBUNEV_START_DATE), to_date(WRBUNEV_END_DATE), WRBUNEV_EVENT_TITLE, WRBUNEV_SHORT_DESC, WRBUNEV_CATEGORY, WRBUNEV_LONG_DESC, WRBUNEV_URL, WRBUNEV_URL_IND, WRBUNEV_EVENT_ID FROM wrbunev WHERE (” & selectCategory & “) AND (WRBUNEV_START_DATE >= to_date(‘” & currentDate & “‘,’MM/DD/YYYY’) OR WRBUNEV_END_DATE >= to_date(‘” & currentDate & “‘,’MM/DD/YYYY’)) ORDER BY WRBUNEV_START_DATE,WRBUNEV_ACTIVITY_DATE”

strSQL2 = “Select to_date(WRBUNEV_START_DATE), to_date(WRBUNEV_END_DATE), WRBUNEV_EVENT_TITLE, WRBUNEV_SHORT_DESC, WRBUNEV_CATEGORY, WRBUNEV_LONG_DESC, WRBUNEV_URL, WRBUNEV_URL_IND, WRBUNEV_EVENT_ID FROM wrbunev WHERE (” & selectCategory & “) AND (WRBUNEV_START_DATE >= to_date(‘” & nextDate & “‘,’MM/DD/YYYY’) OR WRBUNEV_END_DATE >= to_date(‘” & nextDate & “‘,’MM/DD/YYYY’)) ORDER BY WRBUNEV_START_DATE,WRBUNEV_ACTIVITY_DATE”

elseif passport = “yes” then
strSQL = “Select to_date(WRBUNEV_START_DATE), to_date(WRBUNEV_END_DATE), WRBUNEV_EVENT_TITLE, WRBUNEV_SHORT_DESC, WRBUNEV_CATEGORY, WRBUNEV_LONG_DESC, WRBUNEV_URL, WRBUNEV_URL_IND, WRBUNEV_EVENT_ID, WRBUNEV_PASSPORT_IND FROM wrbunev WHERE WRBUNEV_PASSPORT_IND = ‘Y’ AND (WRBUNEV_START_DATE >= to_date(‘” & currentDate & “‘,’MM/DD/YYYY’) OR WRBUNEV_END_DATE >= to_date(‘” & currentDate & “‘,’MM/DD/YYYY’)) ORDER BY WRBUNEV_START_DATE,WRBUNEV_ACTIVITY_DATE”

strSQL2 = “Select to_date(WRBUNEV_START_DATE), to_date(WRBUNEV_END_DATE), WRBUNEV_EVENT_TITLE, WRBUNEV_SHORT_DESC, WRBUNEV_CATEGORY, WRBUNEV_LONG_DESC, WRBUNEV_URL, WRBUNEV_URL_IND, WRBUNEV_EVENT_ID, WRBUNEV_PASSPORT_IND FROM wrbunev WHERE WRBUNEV_PASSPORT_IND = ‘Y’ AND (WRBUNEV_START_DATE >= to_date(‘” & nextDate & “‘,’MM/DD/YYYY’) OR WRBUNEV_END_DATE >= to_date(‘” & nextDate & “‘,’MM/DD/YYYY’)) ORDER BY WRBUNEV_START_DATE,WRBUNEV_ACTIVITY_DATE”

END IF
‘ Setup a RecordSet to store the results from our SQL Query.
Set rs = Server.CreateObject(“ADODB.Recordset”)
rs.Open strSQL, objConn

Set rs2 = Server.CreateObject(“ADODB.Recordset”)
rs2.Open strSQL2, objConn

‘ check to see if any ADO errors occured
If Err.number 0 then
TrapError Err.description
End If
%>

University Events: ” & monthName(currentMonth) & ” ” & currentYear & ” and ” & monthName(nextMonth) & ” ” & nextYear & “”
ELSE
response.write “University Events: ” & monthName(currentMonth) & ” and ” & monthName(nextMonth) & ” ” & currentYear & ““
END IF
%>


University Events: ” & monthName(currentMonth) & ” ” & currentYear & ” and ” & monthName(nextMonth) & ” ” & nextYear & “”
ELSE
response.write “

University Events: ” & monthName(currentMonth) & ” and ” & monthName(nextMonth) & ” ” & currentYear & “

“
END IF
%>

 For more information about events, contact
the Office of University Relations.
 All listings are subject to change. Please call to confirm.


” & vbCrlf)
Response.Write “

” & ucase(monthName(currentMonth)) & ” EVENTS

“

if rs.BOF = true then
response.write “

There are no ” & category & ” events for this month

“
end if

dateClass = “

“
titleClass = “ “
closeSpan = “

“


j = 0
‘ Loop through the recordset to retrieve our rows of data.
do while rs.EOF = false

response.write(WRBUNEV_PASSPORT_IND)

moreInfo = ” More Info“

‘ get weekday number
nameOfMonth = month(rs(0))
endNameOfMonth = month(rs(1))

‘ return abbreviated day
if nameOfMonth = 1 then
nameMonth = “Jan.”
elseIf nameOfMonth = 2 then
nameMonth = “Feb.”
elseIf nameOfMonth = 3 then
nameMonth = “Mar.”
elseIf nameOfMonth = 4 then
nameMonth = “Apr.”
elseIf nameOfMonth = 5 then
nameMonth = “May.”
elseIf nameOfMonth = 6 then
nameMonth = “Jun.”
elseIf nameOfMonth = 7 then
nameMonth = “Jul.”
elseIf nameOfMonth = 8 then
nameMonth = “Aug.”
elseIf nameOfMonth = 9 then
nameMonth = “Sep.”
elseIf nameOfMonth = 10 then
nameMonth = “Oct.”
elseIf nameOfMonth = 11 then
nameMonth = “Nov.”
elseIf nameOfMonth = 12 then
nameMonth = “Dec.”
end if

‘ return abbreviated end day
if endNameOfMonth = 1 then
endNameMonth = “Jan.”
elseIf endNameOfMonth = 2 then
endNameMonth = “Feb.”
elseIf endNameOfMonth = 3 then
endNameMonth = “Mar.”
elseIf endNameOfMonth = 4 then
endNameMonth = “Apr.”
elseIf endNameOfMonth = 5 then
endNameMonth = “May”
elseIf endNameOfMonth = 6 then
endNameMonth = “June.”
elseIf endNameOfMonth = 7 then
endNameMonth = “Jul.”
elseIf endNameOfMonth = 8 then
endNameMonth = “Aug.”
elseIf endNameOfMonth = 9 then
endNameMonth = “Sep.”
elseIf endNameOfMonth = 10 then
endNameMonth = “Oct.”
elseIf endNameOfMonth = 11 then
endNameMonth = “Nov.”
elseIf endNameOfMonth = 12 then
endNameMonth = “Dec.”
end if

‘ check to see if start or end date is greater than current date
‘ if isNull(rs(5)) = false then
‘ check to see if end date is null
if isNull(rs(1)) = true and month(rs(0)) = currentMonth then

response.write dateClass & nameMonth & ” ” & day(rs(0)) & titleClass & ” ” & rs(2) & “:  ” & rs(5)

‘ check to see if event has more info link
IF isNull(rs(6)) = false Then
response.write(moreInfo)
END IF

response.write closeSpan
j = j + 1

‘ check to see if there in an end date
elseif month(rs(0)) = currentMonth then
‘check to see if the end is equal to the current month
if month(rs(1)) = currentMonth then

response.write dateClass & nameMonth & ” ” & day(rs(0)) & ” – ” & day(rs(1)) & titleClass & ” ” & rs(2) & “:  ” & rs(5)
‘ check to see if event has more info link
IF isNull(rs(6)) = false Then
response.write(moreInfo)
END IF

response.write closeSpan
j = j + 1
else
response.write dateClass & nameMonth & ” ” & day(rs(0)) & ” – ” & left(monthName(month(rs(1))),3) & “. ” & day(rs(1)) & titleClass & ” ” & rs(2) & “:  ” & rs(5)
‘ check to see if event has more info link
IF isNull(rs(6)) = false Then
response.write(moreInfo)
END IF
response.write closeSpan
j = j + 1

end if
end if
‘end if

rs.moveNext
loop

if j = 0 then
response.write “

There are no ” & category & ” events for this month

“
end if

‘ SECOND MONTH LIST

Response.Write “

” & ucase(monthName(nextMonth)) & ” EVENTS

“

if rs2.BOF = true then
response.write “

There are no ” & category & ” events for this month

“
end if

j = 0

do while rs2.EOF = false

moreInfo = ” More Info“

‘ get weekday number
nameOfMonth = month(rs2(0))
endNameOfMonth = month(rs2(1))

‘ return abbreviated day
if nameOfMonth = 1 then
nameMonth = “Jan”
elseIf nameOfMonth = 2 then
nameMonth = “Feb.”
elseIf nameOfMonth = 3 then
nameMonth = “Mar.”
elseIf nameOfMonth = 4 then
nameMonth = “Apr.”
elseIf nameOfMonth = 5 then
nameMonth = “May.”
elseIf nameOfMonth = 6 then
nameMonth = “Jun.”
elseIf nameOfMonth = 7 then
nameMonth = “Jul.”
elseIf nameOfMonth = 8 then
nameMonth = “Aug.”
elseIf nameOfMonth = 9 then
nameMonth = “Sep.”
elseIf nameOfMonth = 10 then
nameMonth = “Oct.”
elseIf nameOfMonth = 11 then
nameMonth = “Nov.”
elseIf nameOfMonth = 12 then
nameMonth = “Dec.”
end if

‘ return abbreviated end day
if endNameOfMonth = 1 then
endNameMonth = “Jan.”
elseIf endNameOfMonth = 2 then
endNameMonth = “Feb.”
elseIf endNameOfMonth = 3 then
endNameMonth = “Mar.”
elseIf endNameOfMonth = 4 then
endNameMonth = “Apr.”
elseIf endNameOfMonth = 5 then
endNameMonth = “May”
elseIf endNameOfMonth = 6 then
endNameMonth = “June.”
elseIf endNameOfMonth = 7 then
endNameMonth = “Jul.”
elseIf endNameOfMonth = 8 then
endNameMonth = “Aug.”
elseIf endNameOfMonth = 9 then
endNameMonth = “Sep.”
elseIf endNameOfMonth = 10 then
endNameMonth = “Oct.”
elseIf endNameOfMonth = 11 then
endNameMonth = “Nov.”
elseIf endNameOfMonth = 12 then
endNameMonth = “Dec.”
end if

‘ check to see if start or end date is greater than current date
‘if isNull(rs2(5)) = false then
‘ check to see if end date is null
if isNull(rs2(1)) = true and month(rs2(0)) = nextMonth then

response.write dateClass & nameMonth & ” ” & day(rs2(0)) & titleClass & ” ” & rs2(2) & “:  ” & rs2(5)

‘ check to see if event has more info link
IF isNull(rs2(6)) = false Then
response.write(moreInfo)
END IF
j = j + 1
response.write closeSpan

‘ check to see if there in an end date
elseif month(rs2(0)) = nextMonth then
‘check to see if the end is equal to the current month
if month(rs2(1)) = currentMonth then

response.write dateClass & nameMonth & ” ” & day(rs2(0)) & ” – ” & day(rs2(1)) & titleClass & ” ” & rs2(2) & “:  ” & rs2(5)
‘ check to see if event has more info link
IF isNull(rs2(6)) = false Then
response.write(moreInfo)
END IF
j = j + 1
response.write closeSpan
else
response.write dateClass & nameMonth & ” ” & day(rs2(0)) & ” – ” & left(monthName(month(rs2(1))),3) & “. ” & day(rs2(1)) & titleClass & ” ” & rs2(2) & “:  ” & rs2(5)
‘ check to see if event has more info link
IF isNull(rs2(6)) = false Then
response.write(moreInfo)
END IF
j = j + 1
response.write closeSpan

end if
end if
‘ end if

rs2.moveNext
loop
if j = 0 then
response.write “

There are no ” & category & ” events for this month

“
end if
‘ Close connections and recordsets
set rs = nothing
set rs2 = nothing
objConn.close
set objConn = nothing

response.write(“”)
%>

All listings are subject to change. Please call to confirm.

VISITOR PARKING ADVISORY: Western Connecticut State University offers several convenient, centrally located parking spaces for visitors to the university’s Midtown and Westside campuses in Danbury. Midtown visitor parking is in the lot next to Old Main and in designated spaces next to University Hall. Parking in the university’s White Street garage is restricted to commuter students, faculty and staff from 6 a.m. to 6 p.m. Monday through Thursday; visitors are welcome to park in the garage all other times. Westside visitor parking is on University Boulevard. Visitors who cannot be accommodated in these parking areas are asked to call the University Police Department to make other arrangements.

Up-to-date university parking rules and regulations, color-coded campus maps that show parking areas and shuttle bus stops, and shuttle bus schedules are available at www.wcsu.edu/parking. Call the University Police Department at (203) 837-9300 for more information about the parking rules and regulations.





For more information,
please contact:
Sherri Hill, Associate Director, University Relations
Phone: (203) 837-8486 Fax: (203) 837-8530
E-Mail:
pr@wcsu.edu