Edit an Event

<% @ Language="JavaScript" %>

<%

var out = "";

var Updated = false;

var now = new Date();

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

var adAffectCurrent = 1; // the update/delete applies only to the current record

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

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

var strSQL = "SELECT * FROM calendar
                       Where ID=" + parseInt(Session("EventToEdit"));

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 **********/

if (rsCal.EOF) {
     Response.Redirect("calendar.asp");
}

if (Request("btnEdit") == "Update") {
     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();

    Updated = true;
}

if (Request("btnDelete") == "Delete") {
     rsCal.Delete(adAffectCurrent);
     Response.Redirect("calendar.asp");
}

%>

<HTML>
<HEAD><TITLE>Edit Event</TITLE></HEAD>

<BODY>

<H1>Edit an Event</H1>

<%

if (Updated) {
     Response.write('<FONT SIZE="4"><FONT COLOR="red"><B>' + 
                                rsCal("Subject") + '</FONT> has been updated</B></FONT><P>')
}

%>

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

Day:
<INPUT TYPE="text" NAME="txtDay" VALUE="<% = rsCal("Day") %>">
Month:
<INPUT TYPE="text" NAME="txtMonth" VALUE="<% = rsCal("Month") %>">
Year:
<INPUT TYPE="text" NAME="txtYear" VALUE="<% = rsCal("Year") %>">
Subject:
<INPUT TYPE="text" NAME="txtSubject" VALUE="<% = rsCal("Subject") %>">

<TEXTAREA NAME="Message" COLS="40" ROWS="10">
<% = rsCal("Message") %>
</TEXTAREA>

Added By:
<INPUT TYPE="text" NAME="txtAddedBy" VALUE="<% = rsCal("AddedBy") %>">

<%

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

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

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

%>

<INPUT TYPE="Submit" NAME="btnEdit" VALUE="Update">
<INPUT TYPE="Submit" NAME="btnDelete" VALUE="Delete">
<INPUT TYPE="Reset" NAME="btnReset" VALUE="Reset">
<INPUT TYPE="button" NAME="btnCalendar" VALUE="Back To Calendar"
  onClick="location.href='calendar.asp'">

</FORM>

</BODY>
</HTML>