
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Home » ASP » Article

ASP Tree Calendar

Article by:

Glen (7/23/2002)

	Add to Favourites
	Tell a friend

Sponsored by:

FindMyHosting - Web Hosting Search

Summary:

A tree-style calender allowing the user to easily select any day of the year.

Viewed: 37860 times

Rating (11 votes):

3.7 out of 5

Rate this Article

Read Comments

Post Comments

Written by Glen from Cool ASP Stuff

View Live Demo
Download Script & Images.

A tree-style calender script allowing the user to easily select any day of the year.

Select All Code

<!--
  ************** Mail Any ideas/comments to info@cool.co.za ******************
-->
<%
 Function NumDays(dtSelected)
    '******* Function accepts a date 
and returns the number of days in a month
    
     datetime   = dateadd("d", -datepart("d",dtSelected)+1,dtSelected)
     datetime   = dateadd("m", 1, datetime)
     datetime   = dateadd("d", -1, datetime) 
     NumDays    = datepart("d",datetime)     
     
 end function

Function daySuff( byVal intDay )
 '******** Accepts a day of the month as an integer and
 returns the appropriate suffix
 Dim strOrd

 Select Case intDay
 Case 1, 21, 31
  strOrd = "st"
 Case 2, 22
  strOrd = "nd"
 Case 3, 23
  strOrd = "rd"
 Case Else
  strOrd = "th"
 End Select

 daySuff = strOrd
End Function ' daySuff

%>
<html>
<head>
<title>Tree Calendar View</title>
<link rel="stylesheet" href="sitestyle.css" type="text/css">
<style>
<!--
#liname
{
cursor:hand ;
list-style-image:url(./images/root.gif)
}
#monthfolditem
{list-style-image:none;
}
//-->
</style>
<script language="javascript1.2">
<!--
var head="display:''"
img1=new Image()
img1.src="url(./images/root.gif)"
img2=new Image()
img2.src="(./images/fold_o.gif)"

function change(){
   if(!document.all)
      return
   if (event.srcElement.id=="liname") {
      var srcIndex = event.srcElement.sourceIndex
      var nested = document.all[srcIndex+1]
      if (nested.style.display=="none") {
         nested.style.display=''
         event.srcElement.style.listStyleImage="url(./images/fold_o.gif)"
      }
      else {
         nested.style.display="none"
         event.srcElement.style.listStyleImage="url(./images/root.gif)"
      }
   }
}

document.onclick=change


//-->
</script>
</head>
<%
  
Sub DrawCalendar (numYears,blnBackWards)
   '*****************************************************
   '*                            *
   '* Procedure accepts number of years 0 = Current    *
   '* blnBackWards = whether to go back in years or not    *
   '*                            *
   '*****************************************************
  
  'The folding list items markup
  
   strheadel1   = "<li id='liname'>"
   strheadel2   = "</li>"
   strfoldlist2 = "<ul id='monthfolditem' style='display:none' style=&{head};>" 
   
  'check to see if we are starting from a negative value
   if blnBackWards then
     startYear = -Cint(numYears)
    else
     startYear = 0
   end if   

 for k = startYear to (numYears)
    dtyear = year(dateadd("yyyy",k,date))
    response.write strheadel1 &dtyear &strheadel2
    response.write strfoldlist2      
   for i = 1 to 12 
     dtdate = dateserial(dtyear,i,1)
     strdate =  month(i)
     intdays =  numdays(dtdate) 
     response.write strheadel1 &monthname(datepart("m",dtdate)) &strheadel2
     response.write strfoldlist2 
     for j = 1 to intdays
       response.write "<li><A HREF='showday.asp?date="&dtdate&"'>" 
       response.write weekdayname(weekday(dtDate))&" - " 
       response.write monthname(datepart("m",dtdate)) &" " 
       response.write j &daySuff(j) &"</A></li>"
       dtDate = dateAdd("d",1,dtDate)
     next
     response.write "</ul>"
   next
   response.write "</ul>"
 next  
end Sub
  
  intDraw =  Request.Form("YEARS")
  
  Select case intDraw
  Case "0"   DrawCalendar 0,FALSE
  Case "1"   DrawCalendar 4,FALSE   
  Case "2"   DrawCalendar 4,TRUE   
  Case "3"   DrawCalendar 7,TRUE   
  Case Else  DrawCalendar 2,FALSE
  End Select 
 %>  
 
 <FORM ACTION="tree_calendar.asp" METHOD=POST>
 <SELECT NAME=YEARS>
 <OPTION VALUE=0>Current Year (DrawCalendar 0,FALSE)
 <OPTION VALUE=1>From 2001-2005 (DrawCalendar 4,FALSE)
 <OPTION VALUE=2>From 1997-2005 (DrawCalendar 4,TRUE)
 <OPTION VALUE=3>From 1994-2008 (DrawCalendar 7,TRUE)
 <INPUT TYPE=SUBMIT VALUE=SUBMIT>
 </FORM>
 <A HREF="source.zip">Source Code</A>
 </body>
</html>

Useful Links

Affordable Windows Hosting

Reseller Hosting

Web+Hosting=$1.66

Web Hosting

Hosting

Windows Hosting

Web Hosting Providers

Cheap Hosting

Advertise here

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'ASP Tree Calendar'

Posted by : Archive Import (Geoff) at 17:28 on Wednesday, July 31, 2002

This is a very useful script - thanks!

Posted by : Archive Import (Ian) at 17:51 on Wednesday, July 31, 2002

What uses do you envisage for this script?

Posted by : Archive Import (Bhanu kharel) at 17:32 on Monday, September 30, 2002

hi, i just visited your page. its very cool. the demo about the calender you created using asp.. its really coool.

I am a beginner asp student and my teacher has asked me to design online shopping cart using asp.
can you give me some codes about how to make forms that displays items in the web( items are from my database)
and i also need help with baset( add/delete items)
do you have any demo example???? can you email it to me please??

Posted by : Archive Import (maxtheturk) at 10:25 on Friday, November 22, 2002

Good work,

I think it might be very handy if the source merges with XML file, so it can be useful for online booking or registration systems.

Posted by : Archive Import (german su) at 02:47 on Wednesday, December 18, 2002

excellent! but can you also give me some codes about how to make tree menu that displays items in the web( items are from my database)

do you have any example about it? can you email it to me please?

Posted by : Archive Import (Balaji) at 01:17 on Friday, February 28, 2003

Nice work!
And this helps me a lot.Thanks.

Posted by : Archive Import (Priyesh) at 08:45 on Wednesday, March 05, 2003

hi, i visited your page. The demo about the calender you created using asp is really cool.

To post comments you need to become a member. If you are already a member, please log in .

RELATED ARTICLES
ASP Format Date and Time Script by Jeff Anderson An ASP script showing the variety of date and time formats possible using the FormatDateTime Function.

ASP FilesystemObject by Jeff Anderson An introduction to the Filesystemobject

Email validation using Regular Expression by Jeff Anderson Using regular expression syntax is an exellent way to thoroughly validate an email. It's possible in ASP.

Creating a Dynamic Reports using ASP and Excel by Jeff Anderson A simple way to generate Excel reports from a database using Excel.

Create an ASP SQL Stored Procedure by Jeff Anderson A beginners guide to setting up a stored procedure in SQL server and calling it from an ASP page.

Creating an SQL Trigger by Jeff Anderson A beginners guide to creating a Trigger in SQL Server

ASP Shopping Cart by CodeToad Plus! Complete source code and demo database(Access, though SQL compatible) to an ASP database driven e-commerce shopping basket, taking the user through from product selection to checkout. Available to CodeToad Plus! Members

Concatenate strings in sql by Jeff Anderson A brief introduction to concatenating strings in an sql query (using SQL server or access databases).

ASP OpenTextFile by Jeff Anderson An introduction to the OpenTextFile Method of the FileSystemObject

The asp:checkbox and asp:checkboxlist control by David Sussman, et al Checkboxes are similar to radio buttons, and in HTML, they were used to allow multiple choices from a group of buttons.

Recent Forum Threads

•	hidden div block when displayed, displays at an offset of 200px only in IE 6..
•	help - sketch
•	Re: Perl Script - File Handling.
•	Open a file from website
•	Re: to open 5 terminals from one and also execute different commands on each terminal
•	read a selected multiple line, those should match some of the values read in the files..
•	Help me please
•	Empty the contents of a file.
•	Month Start, End dates

Recent Articles

	ASP GetTempName
	Decode and Encode UTF-8
	ASP GetFile
	ASP FolderExists
	ASP FileExists
	ASP OpenTextFile
	ASP FilesystemObject
	ASP CreateFolder
	ASP CreateTextFile
	Javascript Get Selected Text

submit a link - privacy - contact - advertise - hot links - link to us - submit your article