Event Calendar

<% @ Language="JavaScript" %>

<HTML>

etc...

/********** BODY OF THE TABLE **********/

etc...

/********** SET UP CONNECTION & RECORDSET OBJECTS **********/

var adOpenStatic = 3;
var adLockOptimistic = 3;
var adCmdText = 0x0001;

var strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=" + Server.MapPath("calendar.mdb") + ";"

var nMonth = Month + 1;

var strSQL = "SELECT * FROM calendar
WHERE Month = " + nMonth + " AND Year = " + Year + "";

var conn = Server.CreateObject("ADODB.Connection");

conn.Open(strDSN);

var rsCal = Server.CreateObject("ADODB.RecordSet");

rsCal.Open(strSQL, conn, adOpenStatic, adLockOptimistic, adCmdText);

/********** END OF SET UP CONNECTION & RECORDSET OBJECTS **********/

for (i = 0; i < daysInMonth;) {
     if (column++ != 7) {
          if (now.getMonth() == Month && now.getDate() == Day && now.getYear() == Year) {
               Response.write('<TD VALIGN="top" ALIGN="left" HEIGHT="60">
                                           <FONT COLOR="blue"><B>' + Day++ + '</FONT>');

if (!rsCal.BOF) rsCal.MoveFirst();

               while (!rsCal.EOF) {
                    if (rsCal("Day") == Day - 1) {
                         Response.write('<BR><FONT SIZE="2">
                                                    <A HREF="display_event.asp?ID=' + rsCal("ID") + '">' +
                                                    rsCal("Subject") +
                                                    '</A></FONT><BR>');
                    }
                    rsCal.MoveNext();
               }
               Response.write('</B></TD>');
          }
          else {
               Response.write('<TD VALIGN="top" ALIGN="left" HEIGHT="60"><B>' +
                                           Day++ + '</FONT>');

if (!rsCal.BOF) rsCal.MoveFirst();

               while (!rsCal.EOF) {
                    if (rsCal("Day") == Day - 1) {
                         Response.write('<BR><FONT SIZE="2">
                                                     <A HREF="display_event.asp?ID=' + rsCal("ID") + '">' +
                                                     rsCal("Subject") +
                                                     '</A></FONT><BR>');
                    }
                    rsCal.MoveNext();
               }
               Response.write('</B></TD>');
          }
          i++;
     }
     else {
          Response.write("</TR><TR>");
          column = 0;
     }
}

/********** CLOSE & DESTROY ADO OBJECTS **********/

rsCal.Close();
rsCal = null;
conn.Close();
conn = null;

/********** END OF CLOSE & DESTROY ADO OBJECTS **********/

if (column != 0 && column < 7) {
     for (i = column; i < 7; i++) {
          Response.write('<TD BGCOLOR="#c0c0c0"> </TD>'); // ending blank cells
     }
}

/********** END OF BODY OF THE TABLE **********/

</TR>

</TABLE>

function getCal(form) {
var month = form.Month.value;
var year = form.Year.value;

location.href = 'calendar.asp?Month=' + month + '&' + 'Year=' + year;
}

</SCRIPT>

Month
<SELECT NAME="Month">
     <OPTION VALUE="1">Jan</OPTION>
     <OPTION VALUE="2">Feb</OPTION>
     <OPTION VALUE="3">Mar</OPTION>
     <OPTION VALUE="4">Apr</OPTION>
     <OPTION VALUE="5">May</OPTION>
     <OPTION VALUE="6">Jun</OPTION>
     <OPTION VALUE="7">Jul</OPTION>
     <OPTION VALUE="8">Aug</OPTION>
     <OPTION VALUE="9">Sep</OPTION>
     <OPTION VALUE="10">Oct</OPTION>
     <OPTION VALUE="11">Nov</OPTION>
     <OPTION VALUE="12">Dec</OPTION>
</SELECT>

Year
<SELECT NAME="Year">
     <OPTION VALUE="2000">00</OPTION>
     <OPTION VALUE="2001" SELECTED>01</OPTION>
     <OPTION VALUE="2002">02</OPTION>
     <OPTION VALUE="2003">03</OPTION>
     <OPTION VALUE="2004">04</OPTION>
     <OPTION VALUE="2005">05</OPTION>
</SELECT>

</FORM>

</BODY>