<%'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 posting type 'dim strMode - The strMode variable is defined in the header_inc.asp file. dim intPostingTypeId intPostingTypeId = Trim(Request.QueryString("type_id")) strMode = Trim(Request.QueryString("mode")) 'open data connection Call OpenConn() 'delete the selected posting type Call DeletePostingType(intPostingTypeId) 'close data connection Call CloseConn() 'give the user feedback with regards to the success of the add/edit database transaction Session("FeedbackMode") = LCase(strMode) Session("FeedbackError") = err.number Session("FeedbackModule") = "posting_type" Response.Write("") Response.Write("") 'Server.Execute("/admin/feedback.asp") 'end delete posting type Else %>

Create New Posting Type

Current Posting Type(s):

<% 'open the data connection Call openConn() %> <%'dim intUserId - The intUserId variable is defined in the common_utils.asp file.%> <%=ManagePostingTypes()%> <% 'close the data connection Call CloseConn() %>

<% End If %>