Calendar Script - James Laferriere

Free Stuff

	Calendar Script

	Calendar Script
	A basic Classic ASP/Chilisoft ASP calendar script...good for programmers who need to build a custom calendar, but don't want to write the actual calendar part of it. Show PHP code View the calendar (Select all, copy and paste into a file, then upload the file to your domain If you don't know how to do that, then this is not for you) <%REM Set colors here weekrowcolor = "lightsteelblue" thismonthcolor = "lightslategray" notthismonthcolor = "gainsboro" todaycolor = "white" thismonth = request.querystring("m") thisyear = request.querystring("y") if thismonth = "" then thismonth = month(date) if thisyear = "" then thisyear = year(date) lastmonth = thismonth - 1 nextmonth = thismonth + 1 if lastmonth = 0 then lastmonth = 12 yearoflastmonth = thisyear - 1 else yearoflastmonth = thisyear end if if nextmonth = 13 then nextmonth = 1 yearofnextmonth = thisyear + 1 else yearofnextmonth = thisyear end if response.write "<html><head><title>Calendar</title>" response.write "<style type='text/css'>td {font-family: arial; font-size: 10pt;}</style>" response.write "</head><body><table width='95%' align=center>" response.write "<tr><td nowrap width='33%' style='font-size: 10pt;'>" response.write "<a href=calendar.asp?m=" & lastmonth & "&y=" & yearoflastmonth & ">« " response.write monthname(lastmonth, true) & " " & yearoflastmonth & "</a></td>" response.write "<td nowrap width='34%' align=center style='font-size: 14pt;'>" response.write monthname(thismonth) & " " & thisyear & "</td>" response.write "<td nowrap width='33%' align=right style='font-size: 10pt;'>" response.write "<a href=calendar.asp?m=" & nextmonth & "&y=" & yearofnextmonth & ">" response.write monthname(nextmonth, true) & " " & yearofnextmonth & " »</a>" response.write "</td></table>" response.write "<table width='95%' align=center border=0>" response.write "<tr style='background-color: " & weekrowcolor & ";' height=28>" for iday = 1 to 7 response.write "<td width='14%' style='font-size: 9pt; text-align: center; font-weight: bold;'>" response.write weekdayname(iday, true) & "</td>" next response.write "</tr></table>" response.write "<table width='95%' align=center>" function daysinmonth(monthnumber, yearnumber) if monthnumber = 2 and yearnumber mod 4 > 0 then daysinmonth = 28 elseif monthnumber = 2 and yearnumber mod 4 = 0 then daysinmonth = 29 elseif monthnumber = 4 or monthnumber = 6 or monthnumber = 9 or monthnumber = 11 then daysinmonth = 30 else daysinmonth = 31 end if end function stl = "" function getcelldate(row,col) firstcellthismonth = weekday(thismonth & "/1/" & thisyear) cellnumber = (row - 1) * 7 + col '1 to 42 daysinlastmonth = daysinmonth(lastmonth, yearoflastmonth) daysinthismonth = daysinmonth(thismonth, thisyear) if cellnumber < firstcellthismonth then monthtoprint = lastmonth daytoprint = daysinlastmonth - firstcellthismonth + cellnumber + 1 stl = "background-color: " & notthismonthcolor & ";" elseif cellnumber > firstcellthismonth + daysinthismonth - 1 then monthtoprint = nextmonth daytoprint = cellnumber - daysinthismonth - firstcellthismonth + 1 stl = "background-color: " & notthismonthcolor & ";" else monthtoprint = thismonth daytoprint = cellnumber - firstcellthismonth + 1 stl = "font-weight: bold; background-color: " & thismonthcolor & ";" end if if cdate(monthtoprint & "/" & daytoprint & "/" & year(now)) = date then stl = replace(stl, thismonthcolor, todaycolor) end if getcelldate = monthname(monthtoprint,true) & " " & daytoprint end function for row = 1 to 6 response.write "<tr height=75>" for col = 1 to 7 celldate = getcelldate(row,col) response.write "<td width='14%' style='border: thin outset; " response.write "vertical-align: top; text-align: right;" & stl & "'>" & celldate REM At this point, you could dig into a database to display appointments or whatever ;-)) response.write "</td>" next response.write "</tr>" next response.write "</table></body></html>"%>

I don't need a blog, a myspace or a facebook, I've got my name dot com!