<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> <% Dim intDynamicFormId intDynamicFormId = CInt(Request.QueryString("id")) If Request.Form <> "" Then Dim strElementArray Dim arrElementArray Dim intElementArrayCounter Dim intElementId Dim intElementSortOrderCounter intElementSortOrderCounter = 0 strElementArray = Request.Form("txtElementsList") arrElementArray = Split(strElementArray, strDelimiter) For intElementArrayCounter = 0 To Ubound(arrElementArray) Step 2 If arrElementArray(intElementArrayCounter) <> "" Then intElementSortOrderCounter = intElementSortOrderCounter + 1 Call UpdateElementSortOrder(arrElementArray(intElementArrayCounter), intElementSortOrderCounter) End If Next 'update the html field in the form element table Call CreateAndUpdateDynamicFormPageContent(intDynamicFormId) 'give the user feedback with regards to the success of the database transaction Session("FeedbackError") = err.number Session("FeedbackModule") = "form_element_sort_order" Session("Referer") = "/admin/dynamic_forms.asp" Response.Write("") Response.Write("") 'end add/edit (db transactions) Else %>

Dynamic Form: <%=GetDynamicFormName(intDynamicFormId)%>

<%=ManageFormElementListBox(intDynamicFormId)%>

<% End If 'close the data connection Call CloseConn() %>