This is calendar program written in ASP,CUT AND PA - Visual Basic , VB.NET

	Find Code:
Home : Code : Forums : Submit : Mailing List : About : Contact

All

VB.NET

ASP.NET

C#

Snippets

Popular

Forums

Articles

Tips

Links

Books

Contest

This is calendar program written in ASP,CUT AND PA...
Author: Harish SC
Submitted: 12/5/2000
Version: ASP
Compatibility: ASP
Category: ASP
Views: 17970
This is calendar program written in ASP,CUT AND PASTE THE CODE AND NAME THE FILE AS calendar.asp
Declarations:
'none
Code:
<%@ Language=VBScript %> <HTML> <HEAD> <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"> <script language="javascript"> function ShowCal() { // alert('Hello World'); // alert(document.frmcal.mon.options[document.frmcal.mon.selecteditem].value); var mn,yr; mn = document.frmcal.mon.options.value; // alert(document.frmcal.mon.options.value); yr = document.frmcal.yr.options.value; // alert(document.frmcal.yr.options.value); document.frmcal.method="post"; document.frmcal.action = "calendar.asp?mon="+mn+"&yer="+yr; document.frmcal.submit(); return false; } </script> </HEAD> <BODY> <% 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 %> <form name="frmcal"> <select name="mon" OnChange="return ShowCal()"> <option value=0 selected>-----none------ <option value=1>January <option value=2>February <option value=3>March <option value=4>April <option value=5>May <option value=6>June <option value=7>July <option value=8>August <option value=9>September <option value=10>October <option value=11>November <option value=12>December </select> <select name="yr"> <% for i=(Year(Date)-10) to (Year(Date)+20) if i = Year(Date) then %> <option value=<%=i%> selected><%=i%> <% else %> <option value=<%=i%>><%=i%> <% end if Next %> </select> <br> <br> <% 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 &"")%> <script> file://alert(<%'""& disMonth &"/01/"& disYear &""%>) file://alert(<%=dtst%>) </script> <% 'Response.Write "<br>" 'Response.Write "Date : " & Date 'Response.Write "<br>" 'Response.Write "dtst : " & dtSt %> <font size="4"><b><% =strMn & " " & disYear %></b></font> <br> <br> <TABLE bgColor=white border=1 borderColor=black cellPadding=1 cellSpacing=1 width=20%> <font size="1"> <TR> <TD align="middle"> Sun </TD> <TD align="middle"> Mon </TD> <TD align="middle"> Tue </TD> <TD align="middle"> Wed </TD> <TD align="middle"> Thu </TD> <TD align="middle"> Fri </TD> <TD align="middle"> Sat </TD> </TR> <% ' <TD align="middle"><font size=2><b> Sun </b></font></TD> ' <TD align="middle"><font size=2><b> Mon </font></TD> ' <TD align="middle"><font size=2><b> Tue </font></TD> ' <TD align="middle"><font size=2><b> Wed </font></TD> ' <TD align="middle"><font size=2><b> Thu </font></TD> ' <TD align="middle"><font size=2><b> Fri </font></TD> ' <TD align="middle"><font size=2><b> Sat </font></TD> Dim NextRow NextRow = 0 Response.Write "<tr>" for i = 1 to (dtSt-1) Response.Write "<td align=""center"">" NextRow = NextRow + 1 Response.Write "</td>" next Dim NOD ' Number of Days 'NOD = NoOfDays(Month(Date),Year(Date)) NOD = NoOfDays(disMonth,disYear) for i=1 to NOD Response.Write "<td align=""center"">" NextRow = NextRow + 1 %> <font size=1><a href=""><%=i%></a></font> <% Response.Write "</td>" if ((NextRow mod 7) = 0) then Response.Write "</tr>" Response.Write "<tr>" end if next Response.Write "</tr>" %> </TABLE> </form> </BODY> </HTML>