<%'Include Data Connection%> <%'Include ADO constants include file for VBScript%> <% 'open data connection Call OpenConn() %> <%'Include Utility Scripts%> This page displays the following Dynamic Form:
Select a Dynamic Form... <% Dim intDynamicFormId Dim strUserLanguage 'get the session variable into intDynamicFormId (since this file is called from Server.Exectue) intDynamicFormId = Session("DynamicFormId") 'get the user language strUserLanguage = "en" 'if the dynamic form id is numeric then... If intDynamicFormId <> "" And IsNumeric(intDynamicFormId) Then 'cast intDynamicFormId as an integer intDynamicFormId = CInt(intDynamicFormId) End If 'display the dynamic form options Response.Write GetDynamicFormOptions(intDynamicFormId, strUserLanguage) %> <% 'close data connection CloseConn() %>