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

Error in FormOption specification of List Generator Form.

<% If FormOption ="Search" Then %>

Interest 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 %> " & 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 & "
Start Time <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	Fixed Cost [$] <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>
End Time <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	Variable Cost [$] <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>
Time Tolerance [days] <% If FormOption ="Detail" Then Response.Write "     " & vbcrlf Else Response.Write "     " & vbcrlf End If %>	Cost Tolerance [%] <% 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 enter an Event Description and/or a Resource Description or you will get an error.  The Event Description and/or Resource Description can consist of words, phrases, or a descriptive paragraph.  You MUST also enter the time horizon of interest including a Start Time, an End Time, and a Time Tolerance [days] or you will get an error.  Additionally, you may choose to enter the cost target of interest including the Fixed Cost [$], the Variable Cost [$], and the Cost Tolerance [%].  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