<%@ Language=VBScript enablesessionstate=False %> <% '#################################################################### '##### Surf Highway Software '##### '##### File Name: aquaFormsViewForm.asp '##### '##### Purpose: Form to add an instance of an existing form with. '##### '##### '##### Author: Ed Niedens '##### '##### Date Created: 09/18/2006 '##### '#################################################################### %> <% '##### get the customFormID if len(Request("formID"))>0 then customFormID=Request("formID") if NOT isnumeric(customFormID) then displayErrorPage("Custom Form ID is not numeric.") Response.end end if else displayErrorPage("No Custom Form ID provided.") Response.end end if '##### get the previousStepObjectID if len(Request("previousStepObjectID"))>0 then previousStepObjectID=Request("previousStepObjectID") if NOT isnumeric(previousStepObjectID) then displayErrorPage("Previous Step ID is not numeric.") Response.end end if else previousStepObjectID=0 end if '################################################################## '##### get the form type to determine the proper Hdr/Ftr includes '######## spAquaForms_getFormTypeByFormID formType="" connectStr = Application("shs1sql_ConnectionString") dbConn.Open connectStr spAquaForms_getFormTypeByFormID.CommandText = "spAquaForms_getFormTypeByFormID" spAquaForms_getFormTypeByFormID.CommandType = 4 spAquaForms_getFormTypeByFormID.CommandTimeout = 30 spAquaForms_getFormTypeByFormID.ActiveConnection = dbConn spAquaForms_getFormTypeByFormID.Parameters.Append spAquaForms_getFormTypeByFormID.CreateParameter("RETURN_VALUE" ,3 ,&H0004) spAquaForms_getFormTypeByFormID.Parameters.Append spAquaForms_getFormTypeByFormID.CreateParameter("@ID",adinteger,&H0001,16,cDbl(customFormID)) set rs1 = spAquaForms_getFormTypeByFormID.Execute if NOT rs1.eof then formType= rs1("formType") end if set rs1 = nothing dbConn.close %>

<% '##### display the header based on the form type if len(formType)>0 then if uCase(formType) = "MOBILEMANAGER" then %> <% elseif uCase(formType) = "SMARTFAX" then %> <% elseif uCase(formType) = "SMART800" then %> <% elseif uCase(formType) = "SMARTCONFERENCE" then %> <% elseif uCase(formType) = "SMARTOFFICE" then %> <% end if end if %>
<% '################################################ '##### call the sub-routine that displays the FORM, which is in i_corpus.asp displayForm customFormID,previousStepObjectID %>
 
  <% '##### display the footer based on the form type if len(formType)>0 then if uCase(formType) = "MOBILEMANAGER" then %> <% elseif uCase(formType) = "SMARTFAX" then %> <% elseif uCase(formType) = "SMART800" then %> <% elseif uCase(formType) = "SMARTCONFERENCE" then %> <% elseif uCase(formType) = "SMARTOFFICE" then %> <% end if end if %>