<% 'PageName = "event_group_form" DoHeader(PageName) 'Control who can use this update page If LogonID = NTUser Or CheckAdmin("Event") Then FormOption = Request.QueryString("FormOption") ' FormAction = Request.QueryString("FormAction") If FormOption="Search" Then FormAction="/promanweb/event/event_group_search.asp?iCognateFlag=" & iCognateFlag ElseIf FormOption ="Add" Then ID="Todo" ScheduleID="Todo" GroupID=Request.QueryString("GroupID") FormAction="/promanweb/event/event_group_add.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID EventGroupLeaderID=LogonID ElseIf FormOption ="Update" Then ID="Todo" ScheduleID="Todo" GroupID=Request.QueryString("GroupID") FormAction="/promanweb/event/event_group_update.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID 'Validate that there is a key to search on, if so, update, if not, add. If GroupID <> "" Then strSQL="SELECT * " &_ "FROM EventGroup " &_ "WHERE (([EventGroup].[EventGroupID])= '" & GroupID & "') " &_ "ORDER BY EventGroupID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) If NOT objRStmp.eof Then objRStmp.MoveFirst EventGroupID = objRStmp("EventGroupID") EventGroup = objRStmp("EventGroup") EventGroupDescription = objRStmp("EventGroupDescription") EventGroupLeaderID = objRStmp("EventGroupLeaderID") End If objRStmp.close objConn.close Set objRStmp=nothing Set objConn=nothing End If ElseIf FormOption ="Detail" Then FormAction="/promanweb/event/event_group_list.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID 'Validate that there is a key to search on, if so, update, if not, add. If GroupID <> "" Then strSQL="SELECT * " &_ "FROM EventGroup " &_ "WHERE (([EventGroup].[EventGroupID])= '" & GroupID & "') " &_ "ORDER BY EventGroupID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) If NOT objRStmp.eof Then objRStmp.MoveFirst EventGroupID = objRStmp("EventGroupID") EventGroup = objRStmp("EventGroup") EventGroupDescription = objRStmp("EventGroupDescription") EventGroupLeaderID = objRStmp("EventGroupLeaderID") End If objRStmp.close objConn.close Set objRStmp=nothing Set objConn=nothing End If Else Response.Write "
" Response.Write "" Response.Write "" & vbcrlf Response.Write "" ' Exit Sub End If %>
Error in FormOption specification of Event Group Form.
<% If FormOption ="Search" Then %> <% Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf ElseIf FormOption ="Add" OR FormOption ="Update" Then %> <% Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf ElseIf FormOption ="Detail" Then %>
>

>Event Group <%=FormOption%>

" & vbcrlf Response.Write "Search ALL Fields*   " & vbcrlf Response.Write "  " & vbcrlf Response.Write "*Recommended, unless you want to be very specific.  " & vbcrlf Response.Write "
>

>Event Group <%=FormOption%>

" & vbcrlf Response.Write "

Enter " & vbcrlf Response.Write "details here. Click " & FormOption & " to submit.

" & vbcrlf Response.Write "
> <% If CheckAdmin("Event") Then %>

>Delete <% End If %>

align="middle">>Event Group Detail > <% If CheckAdmin("Event") Then %>

>Update <% End If %>

<% End If %> <% If FormOption ="Detail" Then %>
> <% If FormOption ="Detail" Then Response.Write "

EventGroupID   :  " & vbcrlf Response.Write "" & EventGroupID & "  

" & vbcrlf Else Response.Write "

EventGroupID   :  " & vbcrlf Response.Write "  

" & vbcrlf End If %> 		> <% If FormOption ="Detail" Then Response.Write "

EventGroupLeaderID   :  " & vbcrlf Response.Write "" & EventGroupLeaderID & "  

" & vbcrlf Else Response.Write "

EventGroupLeaderID   :  " & vbcrlf Response.Write "  

" & vbcrlf End If %>
> <% If FormOption ="Detail" Then Response.Write "

Event Name   :  " & vbcrlf Response.Write "" & EventGroup & "  

" & vbcrlf Else Response.Write "

Event Name   :  " & vbcrlf Response.Write "  

" & vbcrlf End If %> 		> <% If FormOption ="Detail" Then Response.Write "

Group Description   :  " & vbcrlf Response.Write "" & EventGroupDescription & "  

" & vbcrlf Else Response.Write "

Group Description   :  " & vbcrlf Response.Write "  

" & vbcrlf End If %>
<% ' strSQL="SELECT * " &_ strSQL="SELECT " &_ "Event.EventID, " &_ "Event.EventContactID, " &_ "Event.EventName, " &_ "Event.EventDescription, " &_ "Event.EventFixedCost, " &_ "Event.EventVariableCost, " &_ "Event.EventEnteredBy, " &_ "Event.EventDateEntered, " &_ "Event.EventUpdatedBy, " &_ "Event.EventDateUpdated, " &_ "Event.EventExtraInfo, " &_ "Event.EventHistory " &_ "FROM Event, EventGroupJoin " &_ "WHERE ((([Event].[EventID])=([EventGroupJoin].[EventID])) And (([EventGroupJoin].[EventGroupID])= '" & GroupID & "'))" &_ "ORDER BY Event.EventID;" 'Response.Write "strSQL=" & strSQL & vbcrlf 'Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) %> <% objRStmp.close Set objRStmp=nothing 'objConn.close 'Set objConn=nothing %>
align=center>>Event List > <% If CheckAdmin("Event") Then %>

>Update <% End If %>

<% 'strSQL="SELECT * " &_ 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])= '" & GroupID & "')) " &_ "ORDER BY EventSchedule.EventScheduleID;" 'Response.Write "strSQL=" & strSQL & vbcrlf 'Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) %>
align=center>>Event Schedule List > <% If CheckAdmin("Event") Then %>

>Update <% End If %>

<% objRStmp.close Set objRStmp=nothing 'objConn.close '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 Response.Write "" & vbcrlf Response.Write "" & vbcrlf Response.Write "Instructions:" & vbcrlf Response.Write "Enter Criteria to search on.  You MUST have at least one field filled " & vbcrlf Response.Write "before submitting or you will get an error.  You will get more matches if " & vbcrlf Response.Write "you enter less information.  The search works with exactly what you type.  " & vbcrlf Response.Write "For example, if you type "A and B" it will look for that exact phrase in that item " & vbcrlf Response.Write "rather than looking for anything with both "a" and "b" in it. " Response.Write "If you put information in multiple blanks, it will only return people listings " & vbcrlf Response.Write "that meet all the criteria." & vbcrlf Response.Write "" & vbcrlf Response.Write "" & vbcrlf End If If FormOption <>"Detail" Then %> align="center">

align="center">

<% End If %>

<% If FormOption ="Search" Then %> <% ElseIf FormOption ="Add" Or FormOption ="Update" Then %> <% End If %> <% Else DoHeader("Not Authorized") 'Response.Write "

You are not authorized to edit the details of this Event

" Response.Write "
" 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