Calendar (URGENT)

1. Jeanne Guest

## Calendar (URGENT)

I am trying to create a calendar (ASP). Could you possibly help me with some simple coding?

2. Eddie Campbell Guest

## Check out Bill W's Javascript

http://www.clearviewdesign.com/Newbie.asp

3. Senior Member
Join Date
Dec 1969
Posts
213

## RE: Calendar (URGENT)

&#060;html&#062;<BR><BR>&#060;head&#062;<BR>&#060; meta http-equiv="Content-Type" content="text/html; charset=windows-1252"&#062;<BR>&#060;meta name="GENERATOR" content="Microsoft FrontPage 4.0"&#062;<BR>&#060;meta name="ProgId" content="FrontPage.Editor.Document"&#062;<BR>&#060 ;title&#062;New Page 1&#060;/title&#062;<BR>&#060;/head&#062;<BR><BR>&#060;body&#062;<BR><BR><BR>&#06 0;%<BR>&#039 ***Begin Function Declaration***<BR>&#039 New and improved GetDaysInMonth implementation.<BR>&#039 Thanks to Florent Renucci for pointing out that I<BR>&#039 could easily use the same method I used for the<BR>&#039 revised GetWeekdayMonthStartsOn function.<BR>Function GetDaysInMonth(iMonth, iYear)<BR> Dim dTemp<BR> dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))<BR> GetDaysInMonth = Day(dTemp)<BR>End Function<BR><BR>&#039 Previous implementation on GetDaysInMonth<BR>&#039Function GetDaysInMonth(iMonth, iYear)<BR>&#039 Select Case iMonth<BR>&#039 Case 1, 3, 5, 7, 8, 10, 12<BR>&#039 GetDaysInMonth = 31<BR>&#039 Case 4, 6, 9, 11<BR>&#039 GetDaysInMonth = 30<BR>&#039 Case 2<BR>&#039 If IsDate("February 29, " & iYear) Then<BR>&#039 GetDaysInMonth = 29<BR>&#039 Else<BR>&#039 GetDaysInMonth = 28<BR>&#039 End If<BR>&#039 End Select<BR>&#039End Function<BR><BR>Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)<BR> Dim dTemp<BR> dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)<BR> GetWeekdayMonthStartsOn = WeekDay(dTemp)<BR>End Function<BR><BR>Function SubtractOneMonth(dDate)<BR> SubtractOneMonth = DateAdd("m", -1, dDate)<BR>End Function<BR><BR>Function AddOneMonth(dDate)<BR> AddOneMonth = DateAdd("m", 1, dDate)<BR>End Function<BR>&#039 ***End Function Declaration***<BR><BR><BR>Dim dDate &#039 Date we&#039re displaying calendar for<BR>Dim iDIM &#039 Days In Month<BR>Dim iDOW &#039 Day Of Week that month starts on<BR>Dim iCurrent &#039 Variable we use to hold current day of month as we write table<BR>Dim iPosition &#039 Variable we use to hold current position in table<BR><BR><BR>&#039 Get selected date. There are two ways to do this.<BR>&#039 First check if we were passed a full date in RQS("date").<BR>&#039 If so use it, if not look for seperate variables, putting them togeter into a date.<BR>&#039 Lastly check if the date is valid...if not use today<BR>If IsDate(Request.QueryString("date")) Then<BR> dDate = CDate(Request.QueryString("date"))<BR>Else<BR> If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then<BR> dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year"))<BR> Else<BR> dDate = Date()<BR> &#039 The annoyingly bad solution for those of you running IIS3<BR> If Len(Request.QueryString("month")) &#060;&#062; 0 Or Len(Request.QueryString("day")) &#060;&#062; 0 Or Len(Request.QueryString("year")) &#060;&#062; 0 Or Len(Request.QueryString("date")) &#060;&#062; 0 Then<BR> Response.Write "The date you picked was not a valid date. The calendar was set to today&#039s date.<BR><BR>"<BR> End If<BR> &#039 The elegant solution for those of you running IIS4<BR> &#039If Request.QueryString.Count &#060;&#062; 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today&#039s date.<BR><BR>"<BR> End If<BR>End If<BR><BR>&#039Now we&#039ve got the date. Now get Days in the choosen month and the day of the week it starts on.<BR>iDIM = GetDaysInMonth(Month(dDate), Year(dDate))<BR>iDOW = GetWeekdayMonthStartsOn(dDate)<BR><BR>%&#062;<BR>& #060;!-- Outer Table is simply to get the pretty border--&#062;<BR>&#060;TABLE BORDER=2 CELLSPACING=0 CELLPADDING=0&#062;<BR>&#060;TR&#062;<BR>&#060;TD& #062;<BR>&#060;TABLE BORDER=1 CELLSPACING=0 CELLPADDING=1 BGCOLOR=#99CCFF&#062;<BR> &#060;TR&#062;<BR> &#060;TD BGCOLOR=#000099 ALIGN="center" COLSPAN=7&#062;<BR> &#060;TABLE WIDTH=100% BORDER=0 CELLSPACING=0 CELLPADDING=0&#062;<BR> &#060;TR&#062;<BR> &#060;TD ALIGN="right"&#062;&#060;A HREF="calendar.asp?date=&#060;%= SubtractOneMonth(dDate) %&#062;"&#062;&#060;FONT COLOR=#FFFF00 SIZE="-1"&#062;&lt;&lt;&#060;/FONT&#062;&#060;/A&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center"&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;&#060;%= MonthName(Month(dDate)) & " " & Year(dDate) %&#062;&#060;/B&#062;&#060;/FONT&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="left"&#062;&#060;A HREF="calendar.asp?date=&#060;%= AddOneMonth(dDate) %&#062;"&#062;&#060;FONT COLOR=#FFFF00 SIZE="-1"&#062;&gt;&gt;&#060;/FONT&#062;&#060;/A&#062;&#060;/TD&#062;<BR> &#060;/TR&#062;<BR> &#060;/TABLE&#062;<BR> &#060;/TD&#062;<BR> &#060;/TR&#062;<BR> &#060;TR&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Sun&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Mon&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Tue&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Wed&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Thu&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Fri&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;TD ALIGN="center" BGCOLOR=#0000CC&#062;&#060;FONT COLOR=#FFFF00&#062;&#060;B&#062;Sat&#060;/B&#062;&#060;/FONT&#062;<BR>&#060;IMG SRC="./images/spacer.gif" WIDTH=60 HEIGHT=1 BORDER=0&#062;&#060;/TD&#062;<BR> &#060;/TR&#062;<BR>&#060;%<BR>&#039 Write spacer cells at beginning of first row if month doesn&#039t start on a Sunday.<BR>If iDOW &#060;&#062; 1 Then<BR> Response.Write vbTab & "&#060;TR&#062;" & vbCrLf<BR> iPosition = 1<BR> Do While iPosition &#060; iDOW<BR> Response.Write vbTab & vbTab & "&#060;TD&#062;&nbsp;&#060;/TD&#062;" & vbCrLf<BR> iPosition = iPosition + 1<BR> Loop<BR>End If<BR><BR>&#039 Write days of month in proper day slots<BR>iCurrent = 1<BR>iPosition = iDOW<BR>Do While iCurrent &#060;= iDIM<BR> &#039 If we&#039re at the begginning of a row then write TR<BR> If iPosition = 1 Then<BR> Response.Write vbTab & "&#060;TR&#062;" & vbCrLf<BR> End If<BR> <BR> &#039 If the day we&#039re writing is the selected day then highlight it somehow.<BR> If iCurrent = Day(dDate) Then<BR> Response.Write vbTab & vbTab & "&#060;TD BGCOLOR=#00FFFF&#062;&#060;FONT SIZE=""-1""&#062;&#060;B&#062;" & iCurrent & "&#060;/B&#062;&#060;/FONT&#062;<BR><BR>&#060;/TD&#062;" & vbCrLf<BR> Else<BR> Response.Write vbTab & vbTab & "&#060;TD&#062;&#060;A HREF=""calendar.asp?date=" & Month(dDate) & "-" & iCurrent & "-" & Year(dDate) & """&#062;&#060;FONT SIZE=""-1""&#062;" & iCurrent & "&#060;/FONT&#062;&#060;/A&#062;<BR><BR>&#060;/TD&#062;" & vbCrLf<BR> End If<BR> <BR> &#039 If we&#039re at the endof a row then write /TR<BR> If iPosition = 7 Then<BR> Response.Write vbTab & "&#060;/TR&#062;" & vbCrLf<BR> iPosition = 0<BR> End If<BR> <BR> &#039 Increment variables<BR> iCurrent = iCurrent + 1<BR> iPosition = iPosition + 1<BR>Loop<BR><BR>&#039 Write spacer cells at end of last row if month doesn&#039t end on a Saturday.<BR>If iPosition &#060;&#062; 1 Then<BR> Do While iPosition &#060;= 7<BR> Response.Write vbTab & vbTab & "&#060;TD&#062;&nbsp;&#060;/TD&#062;" & vbCrLf<BR> iPosition = iPosition + 1<BR> Loop<BR> Response.Write vbTab & "&#060;/TR&#062;" & vbCrLf<BR>End If<BR>%&#062;<BR>&#060;/TABLE&#062;<BR>&#060;/TD&#062;<BR>&#060;/TR&#062;<BR>&#060;/TABLE&#062;<BR><BR><BR><BR><BR>&#060;TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0&#062;&#060;TR&#062;&#060;TD ALIGN="center"&#062;<BR>&#060;FORM ACTION="calendar.asp" METHOD=GET&#062;<BR>&#060;SELECT NAME="month"&#062;<BR> &#060;OPTION VALUE=1&#062;January&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2&#062;February&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=3&#062;March&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=4&#062;April&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=5&#062;May&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=6&#062;June&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=7&#062;July&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=8&#062;August&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=9&#062;September&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=10&#062;October&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=11&#062;November&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=12&#062;December&#060;/OPTION&#062;<BR>&#060;/SELECT&#062;<BR>&#060;SELECT NAME="day"&#062;<BR> &#060;OPTION VALUE=1&#062;1&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2&#062;2&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=3&#062;3&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=4&#062;4&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=5&#062;5&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=6&#062;6&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=7&#062;7&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=8&#062;8&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=9&#062;9&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=10&#062;10&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=11&#062;11&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=12&#062;12&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=13&#062;13&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=14&#062;14&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=15&#062;15&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=16&#062;16&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=17&#062;17&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=18&#062;18&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=19&#062;19&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=20&#062;20&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=21&#062;21&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=22&#062;22&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=23&#062;23&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=24&#062;24&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=25&#062;25&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=26&#062;26&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=27&#062;27&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=28&#062;28&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=29&#062;29&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=30&#062;30&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=31&#062;31&#060;/OPTION&#062;<BR>&#060;/SELECT&#062;<BR>&#060;SELECT NAME="year"&#062;<BR> &#060;OPTION VALUE=1990&#062;1990&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1991&#062;1991&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1992&#062;1992&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1993&#062;1993&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1994&#062;1994&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1995&#062;1995&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1996&#062;1996&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1997&#062;1997&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1998&#062;1998&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=1999&#062;1999&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2000 SELECTED&#062;2000&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2001&#062;2001&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2002&#062;2002&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2003&#062;2003&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2004&#062;2004&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2005&#062;2005&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2006&#062;2006&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2007&#062;2007&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2008&#062;2008&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2009&#062;2009&#060;/OPTION&#062;<BR> &#060;OPTION VALUE=2010&#062;2010&#060;/OPTION&#062;<BR>&#060;/SELECT&#062;<BR><BR><BR>&#060;INPUT TYPE="submit" VALUE="Show This Date on the Calendar!"&#062;<BR>&#060;/FORM&#062;<BR>&#060;/TD&#062;&#060;/TR&#062;&#060;/TABLE&#062;<BR><BR><BR><BR><BR><BR><BR><BR>&#060;/body&#062;<BR><BR>&#060;/html&#062;<BR>

4. James McIntosh Guest

## RE: Calendar (URGENT)

&nbsp;<BR>This is a script I did for a project of mine.<BR>You can use it as long as you keep the comments<BR><BR>&#060;html&#062;<BR>&#060;head&#06 2;<BR> &#060;title&#062;Untitled&#060;/title&#062;<BR>&#060;!-- #include file="adovbs.inc" --&#062;<BR>&#060;Script language="vbscript" runat="server"&#062;<BR>&#039 Please keep these comments if you wish to use any of the code<BR>&#039 Script developed by James McIntosh james@webfx.co.nz<BR>&#039 homepage - http://www.somethingwild.co.nz<BR> function GetLastDay(datTheDate)<BR> intMonthNum = Month(datTheDate)<BR> intYearNum = Year(datTheDate)<BR> intResult = 28<BR> For intLastDay = intResult To 31<BR> datTestDay = DateSerial(intYearNum, intMonthNum, intLastDay)<BR> If Month(datTestDay) = intMonthNum then<BR> intResult = intLastDay<BR> End If<BR> Next<BR> GetLastDay = intResult<BR>End Function<BR>&#060;/script&#062;<BR>&#060;% <BR>datToday = date() &#039todays date<BR>intThisYear = Year(datToday) &#039this year<BR>intThisMonth = Month(datToday) &#039this month<BR>intThisDay = Day(datToday) &#039this day<BR><BR>&#039 Check which Month<BR>intMonthNo = Request("monthno")<BR>If intMonthNo = "" Then intMonthNo = intThisMonth<BR><BR>&#039 Check which Year<BR>intYearNo = Request("yearno")<BR>If intYearNo = "" Then intYearNo = intThisYear<BR><BR>strMonthName = MonthName(intMonthNo) &#039this month name<BR><BR>strWeekDayName = WeekDayName(WeekDay(datToday), false, vbSunday)<BR><BR>datFirstDay = DateSerial(intYearNo, intMonthNo, 1)<BR>intFirstWeekDay = WeekDay(datFirstDay, vbSunday)<BR>intLastDay = GetLastDay(datToday)<BR><BR>intPrintDay = 1<BR>%&#062;<BR>&#060;/head&#062;<BR><BR>&#060;body&#062;<BR>&#060;table width="500" border="0"&#062;<BR> &#060;tr&#062;<BR> &#060;td colspan="7"&#062;&#060;font face="verdana,arial" size="+2"&#062;Computer Lab Booking System&#060;/font&#062;<BR><BR> &#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;To Book The Lab Just Click The &#060;u&#062;Day&#060;/u&#062; You Wish To Book.&#060;/b&#062;&#060;/font&#062;<BR> <BR>&#060;b&#062;&#060;font face="verdana,arial" size="1"&#062;Today is Today is &#060;%= strWeekDayName %&#062; the &#060;%= intThisDay %&#062;&nbsp;&#060;%= strMonthName %&#062;&nbsp;&#060;%= intYearNo %&#062;&#060;/b&#062;&#060;/font&#062;<BR> &#060;/td&#062;<BR> &#060;/tr&#062;<BR>&#060;/table&#062;<BR>&#060;table width="500" border="1" cellspacing="0"&#062;<BR> &#060;tr&#062;<BR> &#060;th colspan="7" bgcolor="#FF0000"&#062;&#060;%= strMonthName %&#062;&nbsp;&#060;%= intYearNo %&#062;&#060;/th&#062;<BR> &#060;/tr&#062;<BR> &#060;tr&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Sunday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Monday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Tuesday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Wednesday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Thursday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Friday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;&#060;b&#062;Saturday&#060;/b&#062;&#060;/font&#062;&#060;/td&#062;<BR> &#060;/tr&#062;<BR>&#060;% while intPrintDay &#060;= intLastDay %&#062;<BR> &#060;tr&#062;<BR> &#060;% For intLoopDay = 1 to 7 %&#062;<BR> &#060;% if intPrintDay = intThisDay then %&#062;<BR> &#060;td align="center" bgcolor="#FF6666"&#062;&#060;font face="verdana,arial" size="2"&#062;<BR> &#060;% else %&#062;<BR> &#060;td align="center" bgcolor="#FFDDDD"&#062;&#060;font face="verdana,arial" size="2"&#062;<BR> &#060;% end if %&#062;<BR> <BR> &#060;% if intFirstWeekDay &#062; 1 Then %&#062;<BR> -<BR> &#060;% intFirstWeekDay = intFirstWeekDay - 1 %&#062;<BR> &#060;% else %&#062;<BR> &#060;% If intPrintDay &#062; intLastDay Then %&#062;<BR> -<BR> &#060;% else %&#062;<BR> &#060;% dd = ("0" & intPrintDay)<BR> IF intPrintDay &#060; 10 Then intPrintDay = dd%&#062;<BR> &#060;b&#062;&#060;a href="page.asp?day=&#060;%= strMonthName %&#062;%2D&#060;%= intPrintDay %&#062;"&#062;&#060;%= intPrintDay %&#062;&#060;/a&#062;&#060;/b&#062;<BR> &#060;% end if %&#062;<BR> &#060;% intPrintDay = intPrintDay + 1%&#062;<BR> &#060;% end if %&#062;<BR> &#060;/font&#062;&#060;/td&#062;<BR> &#060;% next %&#062;<BR> &#060;/tr&#062;<BR> &#060;% Wend %&#062;<BR>&#060;/table&#062;<BR>&#060;/body&#062;<BR>&#060;/html&#062;

5. Jeanne Guest

## RE: Thanks (Calendar)

Thanks very much!! You&#039ve helped me a lot!!<BR><BR>Jeanne...

6. prem Guest