<% function ConvertToDoubleDigits(NumberVal) if NumberVal = 1 then Number = "01" elseif NumberVal = 2 then Number = "02" elseif NumberVal= 3 then Number = "03" elseif NumberVal= 4 then Number = "04" elseif NumberVal= 5 then Number = "05" elseif NumberVal = 6 then Number = "06" elseif NumberVal = 7 then Number = "07" elseif NumberVal = 8 then Number = "08" elseif NumberVal = 9 then Number = "09" end if ConvertToDoubleDigits = Number end function function GetMonth(MonthArg) Dim CurrentMonth Dim MonthName if not MonthArg = "" then CurrentMonth = MonthArg else CurrentMonth = Month(Date) end if if CurrentMonth = 1 then MonthName = "Jan" elseif CurrentMonth = 2 then MonthName = "Feb" elseif CurrentMonth = 3 then MonthName = "Mar" elseif CurrentMonth = 4 then MonthName = "Apr" elseif CurrentMonth = 5 then MonthName = "May" elseif CurrentMonth = 6 then MonthName = "Jun" elseif CurrentMonth = 7 then MonthName = "Jul" elseif CurrentMonth = 8 then MonthName = "Aug" elseif CurrentMonth = 9 then MonthName = "Sep" elseif CurrentMonth = 10 then MonthName = "Oct" elseif CurrentMonth = 11 then MonthName = "Nov" else MonthName = "Dec" end if GetMonth = MonthName end function Dim UserID Dim FirstName Dim SelectedCategory Dim DefaultCategory Dim SQL Dim RecordSet Dim FirstDay Dim LastDay Dim FirstDayArray Dim LastDayArray Dim CurrentTitle FirstName = Session("FirstName") UserID = Session("UserID") SelectedCategory = Request("Category") if SelectedCategory = "" then SelectedCategory = Request("SelectedCategory") end if if SelectedCategory = "NONE" and not Session("FirstName") = "" then SelectedCategory = "MyCalendar" end if SQL = "Select Category from members where UserID = '" & UserID & "' AND FirstName = '" & FirstName & "'" set RecordSet = DBConnection.execute(SQL) if not RecordSet.eof then DefaultCategory = RecordSet("Category") end if RecordSet.close set RecordSet = nothing %> Singapore Science Centre - Science.03 [Press Release]


<% if SelectedCategory = "NONE" and Session("FirstName") = "" then %> Science.03: My Calendar <% else %>
<% if DefaultCategory = "" and SelectedCategory = "" then %> <% end if if SelectedCategory = "All" then %> Science.03: All Events <% elseif SelectedCategory = "" and DefaultCategory = "All" then %> Science.03: All Events <% end if if SelectedCategory = "Highlights" then %> Science.03: Highlight Events <% elseif SelectedCategory = "" and DefaultCategory = "Highlights" then %> Science.03: Highlight Events <% end if if SelectedCategory = "Public" then %> Science.03: Public Events <% elseif SelectedCategory = "" and DefaultCategory = "Public" then %> Science.03: Public Events <% end if if SelectedCategory = "PrimaryAndSecondarySchool" then %> Science.03: Primary and Secondary School Events <% elseif SelectedCategory = "" and DefaultCategory = "PrimaryAndSecondarySchool" then %> Science.03: Primary and Secondary School Events <% end if if SelectedCategory = "JuniorCollegesAndTertairyInstitutuions" then %> Science.03: Junior Colleges & Tertairy Institution Events <% elseif SelectedCategory = "" and DefaultCategory = "JuniorCollegesAndTertairyInstitutuions" then %> Science.03: Junior Colleges & Tertairy Institution Events <% end if if SelectedCategory = "Professional" then %> Science.03: Professional Events <% elseif SelectedCategory = "" and DefaultCategory = "Professional" then %> Science.03: Professional Events <% end if if SelectedCategory = "MyCalendar" then %> Science.03: My Calendar <% end if %>
September 2003    Print Print   
 Sunday Monday Tuesday Wednesday Thursday Friday Saturday

<% end if ' if SelectedCategory = "NONE" %>
<% if SelectedCategory = "All" or (SelectedCategory = "" and DefaultCategory = "All") then %> <% end if if SelectedCategory = "Highlights" or (SelectedCategory = "" and DefaultCategory = "Highlights") then %> <% end if if SelectedCategory = "Public" or (SelectedCategory = "" and DefaultCategory = "Public") then %> <% end if if SelectedCategory = "PrimaryAndSecondarySchool" or (SelectedCategory = "" and DefaultCategory = "PrimaryAndSecondarySchool") then %> <% end if if SelectedCategory = "JuniorCollegesAndTertairyInstitutuions" or (SelectedCategory = "" and DefaultCategory = "JuniorCollegesAndTertairyInstitutuions") then %> <% end if if SelectedCategory = "Professional" or (SelectedCategory = "" and DefaultCategory = "Professional") then %> <% end if %>