<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> <% 'close data connection Call CloseConn() %> <% If Request.QueryString("mode") = "delete" Then 'BEGIN: DELETE USER 'dim strMode - The strMode variable is defined in the header_inc.asp file. dim intAdminUser intAdminUser = CInt(Trim(Request.QueryString("id"))) strMode = Trim(Request.QueryString("mode")) 'open data connection Call OpenConn() 'delete the selected user Call DeleteUser(intAdminUser) 'close data connection Call CloseConn() 'give the user feedback with regards to the success of the delete database transaction Session("FeedbackMode") = LCase(strMode) Session("FeedbackError") = err.number Session("FeedbackModule") = "user" Response.Write("") Response.Write("") 'END: DELETE USER Else 'BEGIN: DISPLAY USER INDEX 'open the data connection Call openConn() dim strCurrentModule %>

Add a User    <% 'set the strCurrentModule variable with the current module name strCurrentModule = "user" %> <% 'write list of users Response.Write ManageUsers() %>

<% 'close the data connection Call CloseConn() 'END: DISPLAY USER INDEX End If %>