" Response.Write "" Response.Write "" & vbcrlf Response.Write "" ' Exit Sub End If %>

Error in FormOption specification of List Generator Form.

<% If FormOption ="Search" Then %>

Use Match <%=FormOption%>

<% ElseIf FormOption ="Detail" Then %>

<% If CheckAdmin("Event") Then %> Delete <% End If %>

Event Group Detail

<% If CheckAdmin("Event") Then %> Update <% End If %>

<% End If %> <% If FormOption ="Detail" Then %>

Match Contact Use <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	For Events <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>
Match Group Use <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	For Resources <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>
Use Frequency <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	Use Start Time <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>
Use Duration <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	Use End Time <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>

<% strSQL="SELECT * " &_ "FROM EventGroupJoin, Event " &_ "WHERE ((([Event].[EventID])=([EventGroupJoin].[EventID])) And (([EventGroupJoin].[EventGroupID])= '" & EventGroupID & "'))" &_ "ORDER BY Event.EventID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) %> <% objRStmp.close objConn.close Set objRStmp=nothing Set objConn=nothing %>

Event List

<% If CheckAdmin("Event") Then %> Update <% End If %>

<% strSQL="SELECT [EventSchedule].[EventScheduleID], [EventSchedule].[EventID], [EventSchedule].[EventScheduleStartTime], [EventSchedule].[EventScheduleEndTime], [EventSchedule].[EventScheduleEnteredBy], [EventSchedule].[EventScheduleDateEntered], [EventSchedule].[EventScheduleUpdatedBy], [EventSchedule].[EventScheduleDateUpdated], [EventSchedule].[EventScheduleExtraInfo], [EventSchedule].[EventScheduleHistory] " &_ "FROM EventGroupScheduleJoin, EventSchedule " &_ "WHERE ((([EventSchedule].[EventScheduleID])=([EventGroupScheduleJoin].[EventScheduleID])) And (([EventGroupScheduleJoin].[EventGroupID])= '" & EventGroupID & "')) " &_ "ORDER BY EventSchedule.EventScheduleID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) ' Response.Write "strSQL=" & strSQL & vbcrlf %>

Event Schedule List

<% If CheckAdmin("Event") Then %> Update <% End If %>

<% objRStmp.close objConn.close Set objRStmp=nothing Set objConn=nothing 'Response.Write "strSQL = " & strSQL strText = "I have assisted with your query: " & strSQL &_ "Can I assist you any further with the " & PageName & " page?" ElseIf FormOption ="Search" Then %> Instructions: Enter criteria to search on.  You MUST check Match Contact Use and/or Match Group Use or you will get an error.  The Match Contact Use and/or Match Group Use is used to match contacts and/or groups, respectively.  You MUST also check Events and/or Resources to match against or you will get an error.  You MUST check Use Frequency and/or Duration or you will get an error.  The Use Frequency is the pattern of occurance over time, while the Duration is the length of each occurance.  The Use Start Time and End Time designates the historical period over which matching is analyzed. <% End If If FormOption <>"Detail" Then %>

<% End If %>

" Response.Write "" Response.Write "" & vbcrlf Response.Write "" End If FormOption = Request.QueryString("FormOption") 'FormAction = Request.QueryString("FormAction") If strText = "" Then strText = LogonID & ", you are now at the " & PageName & " page. " &_ "Your global page options are: " &_ "FormOption = " & FormOption & ". " &_ "FormAction = " & FormAction & ". " &_ "Can I help you with anything on the page?" Else strText = LogonID & ", you are now at the " & PageName & " page. " &_ strText End If If (iCognateFlag = 1) Then %> <% End If %>

You are not authorized to edit the details of this Event Group