<% strDBPath = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\wwwroot\atsolscom\database\ats.mdb" Set conCalendar = Server.CreateObject("ADODB.Connection") conCalendar.Open strDBPath title = request.form("title") eMonth = request.form("eventMonth") eDay = request.form("eventDay") eYear = request.form("eventYear") desc = request.form("description") if title <> "" then SQL = "select max(calendar_id) as id from calendar" Set RS = conCalendar.execute(SQL) calendar_id = RS("id") calendar_id = calendar_id + 1 SQLInsert = "Insert into calendar (calendar_id, event_title, event_description, event_month, event_day, event_year) values(" & calendar_id & ",'" & title & "','" & desc & "','" & eMonth & "','" & eDay & "','" & eYear & "')" Set rInsert = conCalendar.Execute(SQLInsert) end if %>

Event Entry Form

Event Title:
Event Date: / /
Event Description:
Event Location: