Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
This is calendar program written in ASP,CUT AND PA...
Author:
Harish SC
Submitted:
12/5/2000
Version:
ASP
Compatibility:
ASP
Category:
ASP
Views:
17971
This is calendar program written in ASP,CUT AND PASTE THE CODE AND NAME THE FILE AS calendar.asp
Declarations:
'none
Code:
<%@ Language=VBScript %>
<% Function NoOfDays(intMon, intYear) select case intMon case 1,3,5,7,8,10,12 NoOfDays = 31 case 4,6,9,11 NoOfDays = 30 case 2 if ((intYear mod 4) = 0 ) then NoOfDays = 29 elseif ((intYear mod 4) <> 0 ) then NoOfDays = 28 end if end select End Function %>
-----none------
January
February
March
April
May
June
July
August
September
October
November
December
<% for i=(Year(Date)-10) to (Year(Date)+20) if i = Year(Date) then %>
selected><%=i%> <% else %>
><%=i%> <% end if Next %>
<% Dim disMonth Dim disYear disMonth = Request.QueryString("mon") ' To be sorted out for dynamic i/p of month disYear = Request.QueryString("yer") ' To be sorted out for dynamic i/p of year if disMonth = "" then disMonth = Month(Date) end if if disYear = "" then disYear = Year(Date) end if Dim strMn strMn = "" strMn = monthname(dismonth,false) 'select case disMonth ' To dispaly Month in Words ' case 1 ' strMn = "January" ' case 2 ' strMn = "Febuary" ' case 3 ' strMn = "March" ' case 4 ' strMn = "April" '' case 5 ' strMn = "May" ' case 6 ' strMn = "June" ' case 7 ' strMn = "July" ' case 8 ' strMn = "August" ' case 9 ' strMn = "September" ' case 10 ' strMn = "October" ' case 11 ' strMn = "November" ' case 12 ' strMn = "December" 'end select 'Response.Write strMn & " " & disYear Dim dtSt 'dtSt = Weekday(#"& disMonth &"/01/"& disYear &"#) 'dtSt = Weekday(Date) dtSt = Weekday(""& disMonth &"/01/"& disYear &"")%> <% 'Response.Write "
" 'Response.Write "Date : " & Date 'Response.Write "
" 'Response.Write "dtst : " & dtSt %>
<% =strMn & " " & disYear %>
Sun
Mon
Tue
Wed
Thu
Fri
Sat
<% '
Sun
'
Mon
'
Tue
'
Wed
'
Thu
'
Fri
'
Sat
Dim NextRow NextRow = 0 Response.Write "
" for i = 1 to (dtSt-1) Response.Write "
" NextRow = NextRow + 1 Response.Write "
" next Dim NOD ' Number of Days 'NOD = NoOfDays(Month(Date),Year(Date)) NOD = NoOfDays(disMonth,disYear) for i=1 to NOD Response.Write "
" NextRow = NextRow + 1 %>
<%=i%>
<% Response.Write "
" if ((NextRow mod 7) = 0) then Response.Write "
" Response.Write "
" end if next Response.Write "
" %>
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement