ASP Calendar

Free ASP Calendar Scripts

Generates a calendar showing the days of the week and the time of each activity. The activity schedule is read from the sched.txt file.

Here is an example of the Sched.txt file: Sched.txt
Sched Text File Example

Here's the code just cut, paste and try it.

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Calendar Generator</title> <script LANGUAGE="VBSCRIPT">  </script> </head> <body> <% Dim i dim d if IsDate(request.querystring("When")) then today = DateValue(request.querystring("When")) else today = int(now()) end if if (request.querystring("submit") = "Last Month") then today = dateadd("m",-1,today) else if (request.querystring("submit") = "Next Month") then today = dateadd("m",1,today) end if end if response.write("<FORM NAME=AddressForm action=Calendar.asp>") response.write("<INPUT TYPE=submit value='Last Month' id=submit1 name=submit> ") response.write("Date:") response.write("<INPUT NAME=When SIZE=10 value=" & today & ">") response.write("<INPUT TYPE=submit value=Show id=submit2 name=submit>") response.write("<INPUT TYPE=submit value='Next Month' id=submit3 name=submit> ") response.write("</FORM>") response.write(chr(13)) response.write(chr(10)) response.write(chr(13)) response.write(chr(10)) response.write("<font face=verdana,helvetica,arial>") response.write("<center><h1>" & MonthName(Month(today)) & " " & year(today) & "</h1></center>") fileName = Server.MapPath(".") & "\Sched.txt" set fileSys = Server.CreateObject("Scripting.FileSystemObject") FirstDay = month(today) & "/1/" & year(today) LastDay = dateadd("d",-day(dateadd("m",1,today)),dateadd("m",1,today)) Response.Write("<table border=1 width=100% cellspacing=0 >") Response.Write("<tr>") Response.Write("<th width=10% valign=top align=center>Sunday</th>") Response.Write("<th width=10% valign=top align=center>Monday</th>") Response.Write("<th width=10% valign=top align=center>Tuesday</th>") Response.Write("<th width=10% valign=top align=center>Wednesday</th>") Response.Write("<th width=10% valign=top align=center>Thursday</th>") Response.Write("<th width=10% valign=top align=center>Friday</th>") Response.Write("<th width=10% valign=top align=center>Saturday</th>") Response.Write("</tr>") Response.Write("<tr>") d = 0 i = 0 do until d >= WeekDay(FirstDay) - 1 Response.Write("<td width=10% valign=top align=left><p> <font size=1></font></td>") d = d +1 loop do do if (d = 0) then Response.Write("<tr>") end if i = i + 1 Response.Write("<td width=10% valign=top align=left><a name=D" & i & "> " & i & "</a><p><font size=1>") set schFile = fileSys.OpenTextFile(fileName) do until schFile.AtEndOfStream LineIn = schFile.ReadLine EvDate = left(LineIn,8) EvTime = trim(mid(LineIn,10,7)) EvEvent = trim(mid(LineIn,18,30)) EvLink = trim(mid(LineIn,48)) if IsDate(EvDate) then if (DateValue(EvDate) = DateValue(month(today) & "/" & i & "/" & year(today))) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "SUN ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 1) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "MON ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 2) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "TUE ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 3) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "WED ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 4) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "THU ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 5) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "FRI ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 6) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if else if (EvDate = "SAT ") then if (weekday(DateValue(month(today) & "/" & i & "/" & year(today))) = 7) then response.write(EvTime & " ") if EvLink <> "None" then response.write("<a href=""" & EvLink & """>" & EvEvent & "</a><p>") else response.write(EvEvent & "</a><p>") end if end if end if end if end if end if end if end if end if end if loop response.write("</font></td>") schFile.Close d = d + 1 loop until d > 6 or i >= Day(LastDay) Response.Write("</tr>") d = 0 loop until i >= day(lastDay) set fileSys = Nothing Response.Write("</table>") Response.Write("</font>") response.write(chr(13)) response.write(chr(10)) %> </body> </html>

Copyright © 2002 Booshway Enterprises, Inc.
You have a royalty-free right to use, modify, reproduce and distribute the Sample Application Files (and/or any modified version) in any way you find useful, provided that you agree that The Booshway Enterprises, Inc. has no warranty, obligations or liability.