<%@ Language=VBScript %> <% Option Explicit Function IsoDate(theDate) If IsDate(theDate) = True Then DIM theDay, theMonth, theYear theDay = Day(theDate) theMonth = Month(theDate) theYear = Year(theDate) IsoDate = theYear & _ "-" & Right(Cstr(theMonth + 100),2) & _ "-" & Right(Cstr(theDay + 100),2) Else IsoDate = Null End If End Function %> <% Dim MyCalendar Set MyCalendar = New Calendar MyCalendar.Top = 0 MyCalendar.Left = 0 MyCalendar.Position = "relative" MyCalendar.Height = "395" MyCalendar.Width = "300" MyCalendar.TitlebarColor = "darkblue" MyCalendar.TitlebarFontColor = "white" MyCalendar.TodayBGColor = "#8BACDB" MyCalendar.ViewingBGColor= "#C1C9E1" MyCalendar.ShowDateSelect = True MyCalendar.OnDayClick = "javascript:top.window.displayBlog.location='displayBlog.asp?date=$date'" MyCalendar.Draw() %>