Add an Event

<% @ Language="JavaScript" %>

<%

var Added = false;

now = new Date();

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

var adOpenStatic = 3;
var adLockPessimistic = 2;
var adLockOptimistic = 3;
var adCmdText = 0x0001;
var adCmdTable = 0x0002;

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

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

conn.Open(strDSN);

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

rsCal.Open("calendar", conn, adOpenStatic, adLockPessimistic, adCmdTable);

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

/********** CREATE NEW EVENT RECORD **********/

if (Request("btnAdd") == "Add Event") {
     rsCal.AddNew();
          rsCal("Subject") = Request("txtSubject");
          rsCal("Message") = Request("Message");
          rsCal("Day") = Request("selDay");
          rsCal("Month") = Request("selMonth");
          rsCal("Year") = Request("selYear");
          rsCal("AddedBy") = Request("txtAddedBy");
          rsCal("DateAdded") = now.getVarDate();
     rsCal.Update();

     Added = true;
}

/********** END OF CREATE NEW EVENT RECORD **********/

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

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

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

if (Added) Response.Redirect("calendar.asp");

%>

<HTML>
<HEAD><TITLE>Add an Event</TITLE></HEAD>

<BODY>

<FORM METHOD="POST" ACTION="add_event.asp">

Day:
<SELECT NAME="selDay">
     <OPTION VALUE="1">1</OPTION>
     <OPTION VALUE="2">2</OPTION>

     etc...

     <OPTION VALUE="29">29</OPTION>
     <OPTION VALUE="30">30</OPTION>
     <OPTION VALUE="31">31</OPTION>
</SELECT>

Month:
<SELECT NAME="selMonth">
     <OPTION VALUE="1">January</OPTION>
     <OPTION VALUE="2">February</OPTION>

     etc...

     <OPTION VALUE="11">November</OPTION>
     <OPTION VALUE="12">December</OPTION>
</SELECT>

Year:
<SELECT NAME="selYear">
     <OPTION VALUE="2000">2000</OPTION>
     <OPTION VALUE="2001" SELECTED>2001</OPTION>
     <OPTION VALUE="2002">2002</OPTION>
     <OPTION VALUE="2003">2003</OPTION>
     <OPTION VALUE="2004">2004</OPTION>
</SELECT>

Subject: <INPUT TYPE="text" NAME="txtSubject">
<TEXTAREA NAME="Message"></TEXTAREA>
Added By: <INPUT TYPE="text" NAME="txtAddedBy">

<INPUT TYPE="submit" NAME="btnAdd" VALUE="Add Event">
<INPUT TYPE="Reset" NAME="btnReset" VALUE="Clear">

</FORM>

</BODY>
</HTML>