CALENDAR OF EVENTS 2004

<%dim order, objCal, strConnect, month order=Request.Form("type") strConnect="Driver={Microsoft Access Driver (*.MDB)};DBQ="& Server.MapPath("artsci.mdb") set objCal=Server.CreateObject ("ADODB.Recordset") month=request.form("monthName") Response.Write "EVENTS LISTING FOR " & month &"

" objCal.Open "SELECT * FROM Calendar WHERE Month='"& month & "'", strConnect Do While Not objCal.EOF Response.Write "" & "" Response.Write "" & "" Response.Write "" & "" Response.Write "" & "

" objCal.MoveNext Loop objCal.Close Set objCal=Nothing %>

Event Name:	" & (objCal("EventName"))&"
When:	" & month & " " & (objCal("Day"))&"
Time:	" &(objCal("Time"))&"
Where:	" &(objCal("Place"))&"