<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> <% 'strDelimiter is declared and set in common_utils.asp 'strMode is declared and set in the header_inc.asp file Dim intDynamicFormId Dim rsDynamicForm Dim strUserLanguage Dim strDynamicFormName Dim strQueryCriteria Dim strFilterCriteriaArray Dim intFormEntryIncrement Dim intPageCounter Dim intPageNumber, intHPageNumber Dim intPageTotal Dim strView Dim intFormEntryCount Dim strMainFilterCriteria, strMainDateCriteria Dim strReportHTML 'initialize page number to 1 intPageNumber = 1 'initialize form entry increment intFormEntryIncrement = 1 'default to 'en' strUserLanguage = "en" 'get the dynamic form id intDynamicFormId = Request.QueryString("id") 'if the id is numeric and not an empty string... If IsNumeric(intDynamicFormId) And intDynamicFormId <> "" Then Set rsDynamicForm = GetDynamicForm(intDynamicFormId) If rsDynamicForm.EOF = False Then 'populate the variable with the database fields strDynamicFormName = rsDynamicForm("DYNAMIC_FORM_NAME_EN") rsDynamicForm.Close Set rsDynamicForm = Nothing Else rsDynamicForm.Close Set rsDynamicForm = Nothing 'redirect the user Response.Redirect "/admin/dynamic_forms.asp" End If Else 'redirect the user Response.Redirect "/admin/dynamic_forms.asp" End If 'if a form was submitted then... If Request.Form <> "" Then strFilterCriteriaArray = Request.Form("txtFilterCriteriaArray") strMainFilterCriteria = Request.Form("txtMainFilterCriteria") strMainDateCriteria = Request.Form("txtMainDateCriteria") intFormEntryCount = Request.Form("txtFormEntryCount") strView = Request.Form("txtView") intPageNumber = Request.Form("selPageNumber") intHPageNumber = Request.Form("selHPageNumber") Select Case LCase(strView) Case "details-v": 'get details report strReportHTML = GetDetailsReportHTML(strUserLanguage, intDynamicFormId, strMainFilterCriteria, strMainDateCriteria) Case "details-h": 'get details report strReportHTML = GetHorizontalDetailsReportHTML(strUserLanguage, intDynamicFormId, strMainFilterCriteria, strMainDateCriteria) Case "summary": strReportHTML = GetSummaryReportHTML(intFormEntryCount, strUserLanguage, intDynamicFormId, strMainFilterCriteria, strMainDateCriteria) Case Else strReportHTML = "" End Select 'if criteria was submitted then... If strFilterCriteriaArray <> "" Then 'get the criteria query strQueryCriteria = GetQueryCriteria(strFilterCriteriaArray, strDelimiter) 'if criteria was not submitted then... Else 'set the criteria query variable to an empty string strQueryCriteria = "" 'end: if criteria was submitted then... End If 'if the page number was submitted then... If IsNumeric(intPageNumber) And (intPageNumber <> "") Then 'convert the submitted page number as an integer intPageNumber = CInt(intPageNumber) End If 'if the page number was submitted then... If IsNumeric(intHPageNumber) And (intHPageNumber <> "") Then 'convert the submitted page number as an integer intHPageNumber = CInt(intHPageNumber) End If %>

<% 'if search criteria was submitted then... If strFilterCriteriaArray <> "" Then %> <% 'if search criteria was submitted then... End If %>

Dynamic Form: <%=strDynamicFormName%>

Search Results match the following criteria: <%=strQueryCriteria%>

Number of Entries: <%=intFormEntryCount%>

Download report in: [ Word | Excel ]

View: Entry Summary Entry Details (vertical layout): Show Page <% 'if the number of entries is greater than the Form Entry increment then... If intFormEntryCount > intFormEntryIncrement Then 'get the page total: If intFormEntryCount mod intFormEntryIncrement Then intPageTotal = Fix(intFormEntryCount / intFormEntryIncrement) + 1 Else intPageTotal = (intFormEntryCount / intFormEntryIncrement) End If 'if the number of entries is not greater than the Form Entry increment then... Else 'set the page total to 1 intPageTotal = 1 End If For intPageCounter = 1 To intPageTotal%> selected="selected"<%End If%>><%=intPageCounter%> <%Next%> of <%=intPageTotal%> Entry Details (horizontal layout): Show Page <% 'if the number of entries is greater than the Form Entry increment then... If intFormEntryCount > intFormEntryIncrement Then 'get the page total: If intFormEntryCount mod intFormEntryIncrement Then intPageTotal = Fix(intFormEntryCount / intFormEntryIncrement) + 1 Else intPageTotal = (intFormEntryCount / intFormEntryIncrement) End If 'if the number of entries is not greater than the Form Entry increment then... Else 'set the page total to 1 intPageTotal = 1 End If For intPageCounter = 1 To intPageTotal%> selected="selected"<%End If%>><%=intPageCounter%> <%Next%> of <%=intPageTotal%>

<%=Replace(strReportHTML, "[%PLUS_SYMBOL%]", "")%>

<% 'end: if a form was submitted then... End If 'close the data connection Call CloseConn() %>