<%'Include Data Connection%>
<%'Include ADO constants include file for VBScript%>
<%
'open data connection
Call OpenConn()
%>
<%'Include Utility Scripts%>
<%
'this will be a function parameter
Dim intDynamicFormId, intSubmissionId
'default admin-side language variable to english
Dim strUserLangId
strUserLangId = "en"
intDynamicFormId = Request.QueryString("id")
If intDynamicFormId <> "" And IsNumeric(intDynamicFormId) Then
intDynamicFormId = CInt(intDynamicFormId)
End If
'if we are in edit mode
If LCase(strMode) = "edit" Then
'find out which form results to display
intSubmissionId = Request.QueryString("sub")
If intSubmissionId <> "" And IsNumeric(intSubmissionId) Then
intSubmissionId = CInt(intSubmissionId)
End If
Else
intSubmissionId = 0
End If
Dim strHTML
Dim rsDF
'get the admin-side html form
Set rsDF = GetDynamicForm(intDynamicFormId)
strHTML = rsDF("DYNAMIC_FORM_HTML_" & strUserLangId)
rsDF.Close
Set rsDF = Nothing
'output the form
Response.Write strHTML
%>
 |
|
<%
'close the data connection
Call CloseConn()
%>
| |