<%@ Language = VBSCRIPT %>
<% Option Explicit %>
<%
'
' © 2004-2005 SixSide.com All Rights Reserved
' If you use this code on your website, please link back to SixSide.com with the following code:
'
' Date Picker Calendar provided by SixSide.com
'
%>
<%
Dim varDate, varCurrentDate, varFormName, varFieldName
varDate = Date()
if IsDate(Request.QueryString("Date")) then varDate = Request.QueryString("Date")
if IsDate(Request.QueryString("CurrentDate")) then varCurrentDate = Request.QueryString("CurrentDate")
varFormName = Request.QueryString("FormName")
varFieldName = Request.QueryString("FieldName")
Dim DateDay, DateMonth, DateYear
DateDay = DatePart("d",varDate)
DateMonth = DatePart("m",varDate)
DateYear = DatePart("yyyy",varDate)
Dim PrevMonthName, ThisMonthName, NextMonthName
PrevMonthName = MonthName(DatePart("m",DateAdd("m","-1",varDate)))
ThisMonthName = MonthName(DateMonth)
NextMonthName = MonthName(DatePart("m",DateAdd("m","1",varDate)))
Dim FirstOfMonth, FirstDayOfMonth, FirstCalendarDate
if (Session.LCID = 2057) then
FirstOfMonth = FormatDateTime("1/"&DateMonth&"/"&DateYear&"")
else
FirstOfMonth = FormatDateTime(""&DateMonth&"/1/"&DateYear&"")
end if
FirstDayOfMonth = DatePart("w",FirstOfMonth)
FirstCalendarDate = DateAdd("d",-(FirstDayOfMonth-1),FirstOfMonth)
Dim TodayYearNumber, TodayMonthName, TodayDateNumber, varToday
TodayYearNumber = DatePart("yyyy",Date())
TodayMonthName = MonthName(DatePart("m",Date()))
TodayDateNumber = DatePart("d",Date())
if (CInt(TodayDateNumber) < 10) then TodayDateNumber = "0"&TodayDateNumber&""
varToday = Date()
if IsDate(varCurrentDate) then
Dim CurrentDateYearNumber, CurrentDateMonthName, CurrentDateNumber
CurrentDateYearNumber = DatePart("yyyy",varCurrentDate)
CurrentDateMonthName = MonthName(DatePart("m",varCurrentDate))
CurrentDateNumber = DatePart("d",varCurrentDate)
if (CInt(CurrentDateNumber) < 10) then CurrentDateNumber = "0"&CurrentDateNumber&""
end if
Dim DayOfWeek, DayNameOfWeek, DateNumber
Dim ThisDate, ThisYearNumber, ThisDateMonth, ThisDateMonthName
ThisDate = FirstCalendarDate
DayOfWeek = DatePart("w",ThisDate)
Dim weeks, cells, days, classname, idname, i
weeks = 1
%>
Calendar