Display an Event

<% @ Language="JavaScript" %>

<HTML>
<HEAD><TITLE>Display Event</TITLE></HEAD>

<BODY>

<H1>Display Event</H1>

<%

/********** 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 strSQL = "SELECT * FROM calendar";

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

conn.Open(strDSN);

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

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

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

EventToShow = parseInt(Request("ID"));

if (!rsCal.EOF) {
     rsCal.MoveFirst();

     while (rsCal("ID") != EventToShow){
          rsCal.MoveNext();
     }
}

Session("EventToEdit") = EventToShow;

%>

Date: <% = rsCal("Month") + "/" + rsCal("Day") + "/" + rsCal("Year") %>
Subject: <% = rsCal("Subject") %>
Message: <% = rsCal("Message") %>
Added By: <% = rsCal("AddedBy") + " on " + rsCal("DateAdded") %>

<FORM METHOD="post" ACTION="edit_event.asp">
     <INPUT TYPE="submit" NAME="btnEditEvent" VALUE="Edit/Delete Event">
</FORM>

<%

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

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

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

%>

</BODY>
</HTML>