ColumbusWebMakers.com

Experienced, Insightful, Professional WebSite Design and Construction

<% '******************************************************************** ' Name: Events.asp ' ' Purpose: Used to add and remove events from the event database. ' '******************************************************************** dim dbConn, rs, nDex, nMonth, nYear, dtDate, dtTemp ' Get the current date dtDate = Now() ' Set the Month and Year nMonth = Request("nMonth") nYear = Request("nYear") if nMonth = "" then nMonth = Month(dtDate) if nYear = "" then nYear = Year(dtDate) Set dbConn = GetDataConnection Set rs = dbConn.Execute ("GetSchedule " & nMonth & ", " & nYear) DoHeader("Add/Remove Events") %>

Currently Scheduled Events for <% Response.Write MonthName(nMonth) & "  " & nYear %>:

<% if rs.EOF then Response.Write "" end if while not rs.EOF Response.Write "" rs.MoveNext wend %>

Day	Event
No events listed
" & rs("nDay") & "	" Response.Write rs("vcEvent") & "

Add New Event:

Event: Day: <% ' Set the date to the first of the current month dtDate = DateSerial(nYear, nMonth, 1) dtTemp = dtDate do Response.Write "" & Day(dtTemp) dtTemp = DateAdd("d", 1, dtTemp) loop until (Month(dtTemp) <> CInt(nMonth)) %>

Back to Calendar