HouseVieOnline Schedule Administration
<% If Session("ActiveUser") <> "" And GetRequest("user_admin") = "" Then %>
HouseVieOnline Schedule Options
Small Med Large
<%= BuildDropDown(objDate,"month") %> <%= BuildDropDown(objDate,"year") %> <% If Session("ActiveUserLevel") > 500 Then %> <% End If %>
Add / Edit HouseVieOnline Schedule Events <% If GetRequest("view") = "yes" Then GetEventData() %>
Occurrence:
<%= BuildOccurenceDropDown() %>
Runs Forever:
<%= BuildRadioOptions() %>
Content:
Event Date:
<%= BuildInput("text",10,"event_date") %>
Runs Until:
<%= BuildInput("text",10,"event_end_date") %>
Update<% Else %>Add<% End If %> Event">  
<% Else %>
Click on a date below to add an event. <% End If %>
<%= BuildCalendar(objDate,GetRequest("size")) %> <% ElseIf Session("ActiveUserLevel") > 500 And GetRequest("user_admin") = "edit" Then %>
Edit Current Users <%= BuildUserList() %>
<%= Session("SysMessage") %>
Add / Update User
User Name:
Password:
User Level:
checked<% End If %>>User
checked<% End If %>>Administrator
<% Else %>
HouseVieOnline Schedule Login
User Name:
Password:
<% End If %>
Return to HouseVieOnline Schedule
<% Set objRS = Nothing Set objConn = Nothing Set objCommand = Nothing %>