<%@ Language=VBScript %> <% Response.Buffer = True %> <% Dim DivId, bInit, bExecuted, blnEdit, pExecuted, Title 'Initialize the Page for each server request InitializePage() %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Function InitializePage() bInit = CBool(Cint(Request.Querystring ("init"))) If Request.Form("selDiv") = "0" AND Not bInit Then Response.Clear Response.Redirect "error.asp?mess=You must select a committee to view its details." Response.End End If If bInit <> Cint(False) then DivId = Cint(0) else If Request.QueryString("divid") <> "" Then DivId = Request.QueryString("divid") Else DivId = Request.Form("selDiv") End If End If If Request.QueryString("mode") <> "edit" Then blnEdit = False Title = "Delete Division" Else blnEdit = True Title = "Edit Division" End If End Function '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Dim rsDivs Set rsDivs = Server.CreateObject("ADODB.Recordset") Dim rsDivision Set rsDivision = Server.CreateObject("ADODB.Recordset") bExecuted = GetDivisions(rsDivs) If Not bExecuted Then Response.Clear Response.Redirect "error.asp?mess=There was a problem retrieving divisions.
Please click the BACK button." Response.End End If If rsDivs.EOF Then Response.Clear Response.Redirect "error.asp?mess=There are no divisions to edit.
Please click the BACK button." Response.End End If %>

<% If blnEdit Then %> <% Else %> <% End If %> <% If blnEdit Then %> <% Else %> <% End If %> <% If blnEdit Then %> <% Else %> <% End If %> <% dbNVS.Close If Not bInit Then bExecuted = GetDiv(rsDivision, DivId) End If %> <% If Not bInit Then %> <% Else %> <% End If %> <% Else %> <% End If%> <% End If %>  Add |  Edit | Delete  Add |  Edit | Delete  * required       <%If bInit <> False then%> - Select a Division - <%End If%> <%While Not rsDivs.EOF%> <%If Clng(rsDivs.Fields("DIV_ID").Value) = Clng(DivId) then%> "><%=Left(rsDivs.Fields("DIVISION").Value, 25)%> <%Else%> "><%=Left(rsDivs.Fields("DIVISION").Value, 50)%> <%End If%> <% rsDivs.MoveNext Wend%>       *Name:   value="<%=Trim(rsDivision.Fields("DIVISION").Value) %>" <% End If %>>     <% If Not bInit Then %> <% If blnEdit Then %>

<% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 'THIS DISPLAYS A MESSAGE BOX...WILL USE TO CONFIRM A SUCCESSFULL COMMITTEE UPDATE or DELETE... If Request.QueryString("confirm") = "yes" Then Response.write "" ElseIf Request.QueryString("confirmdelete") = "yes" Then Response.write "" End If '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ %> <% Set rsDivision = Nothing Set rsDivs = Nothing Set dbNVS = Nothing Response.End %>