<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> <% ' Dim strMode Dim intDynamicFormId 'get the mode strMode = Request.QueryString("mode") 'get the id of the form that needs to be deleted intDynamicFormId = Request.QueryString("id") 'set the user language Dim strUserLanguage strUserLanguage = "en" 'if the id is not an empty string and is numeric... If intDynamicFormId <> "" And IsNumeric(intDynamicFormId) Then 'if the mode is delete: If LCase(strMode) = "delete" Then 'delete the record Call DeleteDynamicForm(intDynamicFormId) End If 'give the user feedback with regards to the success of the database transaction Session("FeedbackMode") = LCase(strMode) Session("FeedbackError") = err.number Session("Referer") = "/admin/dynamic_forms.asp" Session("FeedbackModule") = "dynamic_form" Response.Write("") Response.Write("") 'end add/edit (db transactions) Else %>

Create a Dynamic Form

<%=ManageDynamicFormAdministration(strUserLanguage)%>

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