<% 'PageName = "event_schedule_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_schedule_search.asp?iCognateFlag=" & iCognateFlag ElseIf FormOption ="Add" Then ID="Todo" ScheduleID=Request.QueryString("EventScheduleID") GroupID="Todo" FormAction="/promanweb/event/event_schedule_add.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID EventScheduleEnteredBy=LogonID EventScheduleDateEntered = Now EventScheduleStartTime = Now+1 EventScheduleEndTime = Now+7 ElseIf FormOption ="Update" Then ID="Todo" ScheduleID=Request.QueryString("ScheduleID") GroupID="Todo" FormAction="/promanweb/event/event_schedule_update.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID If ScheduleID <> "" Then strSQL = "SELECT * " &_ "FROM EventSchedule " &_ "WHERE (([EventSchedule].[EventScheduleID])='" & ScheduleID & "')" &_ "ORDER BY EventScheduleID;" Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) If NOT objRStmp.eof Then objRStmp.MoveFirst EventScheduleID = objRStmp("EventScheduleID") EventID = objRStmp("EventID") EventScheduleStartTime = objRStmp("EventScheduleStartTime") EventScheduleEndTime = objRStmp("EventScheduleEndTime") EventScheduleEnteredBy = objRStmp("EventScheduleEnteredBy") EventScheduleDateEntered = objRStmp("EventScheduleDateEntered") EventScheduleUpdatedBy = objRStmp("EventScheduleUpdatedBy") EventScheduleDateUpdated = objRStmp("EventScheduleDateUpdated") EventScheduleExtraInfo = objRStmp("EventScheduleExtraInfo") EventScheduleHistory = objRStmp("EventScheduleHistory") End If EventScheduleHistory = EventScheduleHistory & vbcrlf &_ EventScheduleID & vbcrlf &_ EventID & vbcrlf &_ EventScheduleStartTime & vbcrlf &_ EventScheduleEndTime & vbcrlf &_ EventScheduleEnteredBy & vbcrlf &_ EventScheduleDateEntered & vbcrlf &_ EventScheduleUpdatedBy & vbcrlf &_ EventScheduleDateUpdated & vbcrlf &_ EventScheduleExtraInfo If len( EventScheduleEnteredBy ) = 0 Then EventScheduleEnteredBy=LogonID End If If len( EventScheduleDateEntered ) = 0 Then EventScheduleDateEntered = Now End If EventScheduleUpdatedBy=LogonID EventScheduleDateUpdated = Now tmpLoginName=Request.ServerVariables("LOGON_USER") ' EventScheduleUpdatedBy=(Right(tmpLoginName, (len(tmpLoginName)-4))) EventScheduleUpdatedBy=tmpLoginName objRStmp.close objConn.close Set objRStmp=nothing Set objConn=nothing End If ElseIf FormOption ="Detail" Then 'Validate that there is a key to search on, if so, update, if not, add. FormAction="/promanweb/event/event_schedule_list.asp?iCognateFlag=" & iCognateFlag & "&FormOption=" & FormOption & "&ID=" & ID & "&ScheduleID=" & ScheduleID & "&GroupID=" & GroupID If ScheduleID <> "" Then Set objConn = GetConn strSQL = "SELECT * " &_ "FROM EventSchedule " &_ "WHERE (([EventSchedule].[EventScheduleID])='" & ScheduleID & "') " &_ "ORDER BY EventScheduleID;" ' Response.Write "strSQL= " & strSQL Set objRStmp = objConn.Execute (strSQL) If NOT objRStmp.eof Then EventScheduleID = objRStmp("EventScheduleID") EventID = objRStmp("EventID") EventScheduleStartTime = objRStmp("EventScheduleStartTime") EventScheduleEndTime = objRStmp("EventScheduleEndTime") EventScheduleEnteredBy = objRStmp("EventScheduleEnteredBy") EventScheduleDateEntered = objRStmp("EventScheduleDateEntered") EventScheduleUpdatedBy = objRStmp("EventScheduleUpdatedBy") EventScheduleDateUpdated = objRStmp("EventScheduleDateUpdated") EventScheduleExtraInfo = objRStmp("EventScheduleExtraInfo") EventScheduleHistory = objRStmp("EventScheduleHistory") 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 Schedule 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 Schedule <%=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 Schedule <%=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 Schedule Detail > <% If CheckAdmin("Event") Then %>

>Update <% End If %>

<% End If %> " & vbcrlf Else Response.Write "Schedule Extra Info   :  " & vbcrlf Response.Write "

  " & vbcrlf End If %>

" & vbcrlf Else Response.Write "History   :  " & vbcrlf Response.Write "

  " & vbcrlf End If %>

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

EventScheduleID   :  " & vbcrlf Response.Write "" & EventScheduleID & "  

" & vbcrlf Else Response.Write "

EventScheduleID   :  " & vbcrlf Response.Write "  

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

EventID   :  " & vbcrlf Response.Write "" & EventID & "  

" & vbcrlf Else Response.Write "

EventID   :  " & vbcrlf Response.Write "  

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

Start Time   :  " & vbcrlf Response.Write "" & EventScheduleStartTime & "  

" & vbcrlf Else Response.Write "

Start Time   :  " & vbcrlf Response.Write "  

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

End Time   :  " & vbcrlf Response.Write "" & EventScheduleEndTime & "  

" & vbcrlf Else Response.Write "

End Time   :  " & vbcrlf Response.Write "  

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

Entered By   :  " & vbcrlf Response.Write "" & EventScheduleEnteredBy & "  

" & vbcrlf Else Response.Write "

Entered By   :  " & vbcrlf Response.Write "  

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

Date Entered   :  " & vbcrlf Response.Write "" & EventScheduleDateEntered & "  

" & vbcrlf Else Response.Write "

Date Entered   :  " & vbcrlf Response.Write "  

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

Updated By   :  " & vbcrlf Response.Write "" & EventScheduleUpdatedBy & "  

" & vbcrlf Else Response.Write "

Updated By   :  " & vbcrlf Response.Write "  

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

Date Updated   :  " & vbcrlf Response.Write "" & EventScheduleDateUpdated & "  

" & vbcrlf Else Response.Write "

Date Updated   :  " & vbcrlf Response.Write "  

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

Schedule Extra Info   :  " & vbcrlf Response.Write "  

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

Schedule History   :  " & vbcrlf Response.Write "  

<% '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 EventScheduleJoin, Event " &_ "WHERE ((([Event].[EventID])=([EventScheduleJoin].[EventID])) And (([EventScheduleJoin].[EventScheduleID])= '" & ScheduleID & "'))" &_ "ORDER BY Event.EventID;" '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 " &_ "EventGroup.EventGroupID, " &_ "EventGroup.EventGroup, " &_ "EventGroup.EventGroupLeaderID, " &_ "EventGroup.EventGroupDescription " &_ "FROM EventGroupScheduleJoin, EventGroup " &_ "WHERE ((([EventGroup].[EventGroupID])=([EventGroupScheduleJoin].[EventGroupID])) And (([EventGroupScheduleJoin].[EventScheduleID])= '" & ScheduleID & "'))" &_ "ORDER BY EventGroup.EventGroupID;" 'Set objConn = GetConn Set objRStmp = objConn.Execute (strSQL) %>
align=center>>Event Group 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 Schedule