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

Error in FormOption specification of List Generator Form.

<% If FormOption ="Search" Then %> <% ElseIf FormOption ="Detail" Then %>

Description Match <%=FormOption%>

Search KEYWORDS*      *Separated by commas (with no spaces).

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

Event Group Detail

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

<% End If %> " & vbcrlf Else Response.Write "

" & EventDescription & "  " & vbcrlf End If %>

" & vbcrlf Else Response.Write "

" & ResourceDescription & "  " & vbcrlf End If %>

<% If FormOption ="Detail" Then %>

Event Description   <% If FormOption ="Detail" Then Response.Write " " & EventDescription & "

Resource Description   <% If FormOption ="Detail" Then Response.Write " " & ResourceDescription & "

<% 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 enter a Keyword, an Event Description, or a Resource Description before submitting or you will get an error.  If you enter a Keyword, search will evaluate exactly what you type.  For example, if you type "A and B" it will look for that exact phrase in that area rather than looking for anything with both "a" and "b" in it.  If you do not have specific Keyword(s) to search on, you may enter an Event Description or a Resource Description. The description can consist of words, phrases, or a descriptive paragraph. You will get more matches if you enter more information. <% 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