ASP Calender Code

Category:

ASP, HTML and XML

Type:

Applications

Difficulty:

Advanced

Author: Gaurav Gadhia

Version Compatibility: ASP

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
this is a calendar for asp. u have to just copy and paste code in your asp file.

Code:

<%@ language=vbscript%>
<%option explicit%>
<HTML>
<HEAD>

function month_onchange()
{
 form1.submit(); 
}

function year_onchange()
{
 form1.submit();
}

//-->
</script>

<table>
 <tr>
  <td>
   <select name=month LANGUAGE=javascript onchange="return month_onchange()">
    <option value="1" <% if change_month="1" then%> selected <%end if%>>January</option>
    <option value="2" <% if change_month="2" then%> selected <%end if%>>Febuary</option>
    <option value="3" <% if change_month="3" then%> selected <%end if%>>March</option>
    <option value="4" <% if change_month="4" then%> selected <%end if%>>April</option>
    <option value="5" <% if change_month="5" then%> selected <%end if%>>May</option>
    <option value="6" <% if change_month="6" then%> selected <%end if%>>June</option>
    <option value="7" <% if change_month="7" then%> selected <%end if%>>July</option>
    <option value="8" <% if change_month="8" then%> selected <%end if%>>August</option>
    <option value="9" <% if change_month="9" then%> selected <%end if%>>September</option>
    <option value="10" <% if change_month="10" then%> selected <%end if%>>October</option>
    <option value="11" <% if change_month="11" then%> selected <%end if%>>November</option>
    <option value="12" <% if change_month="12" then%> selected <%end if%>>December</option>
   </select>
  </td>
  
  <td>
   <select name=year LANGUAGE=javascript onchange="return year_onchange()">
    <%dim year_display%>
    <%for year_display=2003 to 2005%>
      <option value=<%=year_display%> <% if int(change_year)=year_display then%> selected <%end if%>><%=year_display%></option>
    <%next%>
    
   </select>
  </td>
 </tr>
</table>
  
<%
 dim temp
 dim total_days
 dim m
 dim month_name
 dim next_month_name
 dim y
 dim to_day
 dim first_day
 dim first_day_month
 dim week_day
 dim sys_m
 dim sys_y
 dim mode_check'SELECT DATE IS LESS THAN SYSTEM DATE
 
 dim i
 dim j
 dim dat
 dim state
 dat=1
 state=1
 
 m=int(change_month)
 month_name=ucase(monthname(m))
 
 y=int(change_year)

sys_m=month(date())
 sys_y=year(date())
 
 dim count_months
 dim count_years
 count_months=0
 count_years=0

if y<sys_y then 
 diff_years=sys_y-y
   'if m>=sys_m then
      diff_months=((diff_years -1)*12)+(12-m)+sys_m
      do while diff_years>count_years
        sys_y=y
        sys_m=m
        do while diff_months>count_months
          call get_days(sys_m)
          sys_m=sys_m+1
          if sys_m=13 then
            sys_m=1
            count_years=count_years+1
            sys_y=sys_y+1
          end if
          count_months=count_months+1
        loop
       loop
      mode_check="less"  
      'Response.Write(diff_days)

else if y=sys_y then
 
  if m>sys_m then
    do while m>sys_m
      call get_days(sys_m)
      sys_m=sys_m+1
    loop
  else
    diff_months=sys_m-m
    sys_m=m
    do while diff_months>count_months
      call get_days(sys_m)
      sys_m=sys_m+1
      count_months=count_months+1
    loop
    mode_check="less"
  end if 'M>SYS_M
 
 else
 
   diff_years=y-sys_y
   do while diff_years>count_years 
     if m>=sys_m then
      diff_months=(diff_years*12)+m-sys_m  
      do while diff_months>count_months
        call get_days(sys_m)
        sys_m=sys_m+1
        if sys_m=13 then
          sys_m=1
          count_years=count_years+1
          sys_y=sys_y+1
        end if
        count_months=count_months+1
      loop
     
    else
      diff_months=((diff_years-1)*12)+(12-sys_m)+m
      do while diff_months>count_months
        call get_days(sys_m)
        sys_m=sys_m+1
        if sys_m=13 then
          sys_m=1
          count_years=count_years+1
          sys_y=sys_y+1
        end if 
        count_months=count_months+1 
     loop 
    
    end if
     
  loop
  
 end if 'Y=SYS_Y
end if

'Response.Write(diff_days)
 
to_day=day(date()) 
week_day=weekday((date()))'IT RETURNS WEEKDAY NO.1-SUNDAY
  
call get_month(m)

first_day=((diff_days-to_day)mod 7+week_day +1)mod 7

if mode_check="less" then
   first_day=week_day-(diff_days+to_day) mod 7 +1
   if first_day<0 then
     first_day=7+first_day
   end if
end if
    
if first_day <0 then
	 first_day_month=week_day-first_day
	 else if first_day=0 then
		first_day_month=7
	 else
		first_day_month=first_day
	 end if
 end if
 
%>

<tr>
  <td colspan=7>
   <hr>
  </td>
 </tr>
 
 <%for j=1 to 6%>
 <tr>
   <%if state=2 then%>
   <%for i=1 to 7%>
   <td align=center>
   <a href="calendar12.asp"><%=dat%></a>
   </td>
   <%dat=dat+1%>
   
   <%if dat>total_days then%>
   <%state=3
     exit for%>
   <%end if%>
  
   <%next%>
   <%end if%>
   
   <%if state=1 then%>
   <%for i=1 to first_day_month-1%>
   <td>
   </td>
   <%next%>  
   <%for i=first_day_month to 7%> 
   <td align=center>
   <a href="calendar12.asp"><%=dat%></a>
   </td>
   <%dat=dat+1%>
   <%next%>
   </td>
   <%state=2%>
   <%end if%>
   
 </tr>
 <%next%>

</table>

<!--<% 
 m=m+1
 if m=13 then
  m=1
  y=y+1
 end if
%>

<%next_month_name=ucase(monthname(m))%>

<%
 if i=7 then
  i=1
 else
  i=i+1
 end if
 first_day_month=i
 state=1
 dat=1
%>
<tr>
  <td>SUN</TD>
  <td>MON</TD>
  <td>TUE</TD>
  <td>WED</TD>
  <td>THU</TD>
  <td>FRI</TD>
  <td>SAT</TD>
 </tr>
 
 <%for j=1 to 6%>
 <tr>
   <%if state=2 then%>
   <%for i=1 to 7%>
   <td>
   <%=dat%>
   </td>
   <%dat=dat+1%>
   
   <%if dat>total_days then%>
   <%state=3
     exit for%>
   <%end if%>
  
   <%next%>
   <%end if%>
   
   <%if state=1 then%>
   <%for i=1 to first_day_month-1%>
   <td>
   </td>
   <%next%>  
   <%for i=first_day_month to 7%> 
   <td>
      <%=dat%>
   </td>
   <%dat=dat+1%>
   <%next%>
   </td>
   <%state=2%>
   <%end if%>
   
 </tr>
 <%next%>

<%for j=1 to 16%>
 <tr>
 </tr>
<%next%>

</table>-->

<%
sub get_month(int)'TO GET NO. OF DAYS IN PARTICULAR MONTH
 if m=4 or m=6 or m=9 or m=11 then
	total_days=30
	'Response.Write(total_days) 
	else if m=2 and (y mod 4)=0 then
		total_days=29
		'Response.Write(total_days) 
		else if m=2 and (y mod 4)<>0 then
			total_days=28
			'Response.Write(total_days) 
			else if m=1 or m=3 or m=5 or m=7 or m=8 or m=10 or m=12 then
				total_days=31
				'Response.Write(total_days) 
			end if
		end if
	end if
 end if
end sub

sub get_days(int)'TO GET NO. OF DAYS IN PARTICULAR MONTH
 if sys_m=4 or sys_m=6 or sys_m=9 or sys_m=11 then
	diff_days=diff_days+30
	'Response.Write(diff_days) 
	else if sys_m=2 and (sys_y mod 4)=0 then
		diff_days=diff_days+29
		'Response.Write(diff_days) 
		else if sys_m=2 and (sys_y mod 4)<>0 then
			diff_days=diff_days+28
			'Response.Write(diff_days) 
			else if sys_m=1 or sys_m=3 or sys_m=5 or sys_m=7 or sys_m=8 or sys_m=10 or sys_m=12 then
				diff_days=diff_days+31
				'Response.Write(diff_days) 
			end if
		end if
	end if
 end if
end sub

</form>
 
<P> </p>
</body>
</html>