<% 'PageName = "event_schedule_list" DoHeader(PageName) strText="" strSQL="SELECT * FROM EventSchedule ORDER BY EventScheduleID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) strText = "I have assisted with the " & PageName & " page for your query: " &_ strSQL & " Can I assist you any further with the " & PageName & " page?" FormOption = Request.QueryString("FormOption") If FormOption = "Add" OR FormOption = "Update" Then iCognateFlag = Request.QueryString("iCognateFlag") ID = Request.QueryString("ID") GroupID = Request.QueryString("GroupID") ScheduleID = Request.QueryString("ScheduleID") If ID="Todo" Then 'Process all "Todo" first FormAction="/promanweb/event/event_list_add.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID ElseIf ScheduleID="Todo" Then FormAction="/promanweb/event/event_schedule_list_add.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID ElseIf GroupID="Todo" Then FormAction="/promanweb/event/event_group_list_add.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID Else 'Default back to first Update page type with FormOption = Detail If ID<>"" Then 'Process all "Todo" first ID=Request.QueryString("ID") ScheduleID="" GroupID="" FormAction="/promanweb/event/event_form.asp?iCognateFlag=" & iCognateFlag & "&FormOption=Detail&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID ElseIf ScheduleID<>"" Then ID="" ScheduleID=Request.QueryString("ScheduleID") GroupID="" FormAction="/promanweb/event/event_schedule_form.asp?iCognateFlag=" & iCognateFlag & "&FormOption=Detail&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID ElseIf GroupID<>"" Then ID="" ScheduleID="" GroupID=Request.QueryString("GroupID") FormAction="/promanweb/event/event_group_form.asp?iCognateFlag=" & iCognateFlag & "&FormOption=Detail&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID End If End If strText = "To complete " & FormOption & ", please choose from the selections on the " & PageName & " page. " &_ "Is there anything else I can assist you with on the page?" End If %>
<% If FormOption = "Add" Or FormOption = "Update" Then %>
align=center>>Event Schedule List > <% If CheckAdmin("Event") Then If FormOption = "Update" Then %>

>Update <% Else ' Default for Add %>

>Add <% End If End If %>

align="center">

align="center">

<% End If %>
<% objRStmp.close Set objRStmp = Nothing objConn.close Set objConn = Nothing If strText="" Then strText = "I have assisted with the " & PageName & " page for your query: " &_ strSQL & " Can I assist you any further with the " & PageName & " page?" End If If (iCognateFlag = 1) Then %> <% End If %>