I have created a Combo Box which includes the following options.
Domestic forms which will include the Pack List and Commercial Invoice. International Forms which will include the Pack List, Commercial Invoice, Shipper Export Declaration, SLI, and Certificate of Origin. After the choice I have given the user the choice to choose any of the forms individually. I am not sure how to get this to work. I am enclosing my code. I am still learning ASP Pages.
<%@ Language=VBScript %>
<%Option Explicit%>


<%
Dim mstrMessage, mstrPageTitle, mstrPageSubTitle, mstrAppUdl
Dim mblnMANUAL, mblnValidRequest
Dim i_printer
Dim i_sales_order
Dim i_packing_slip





mStrAppUdl = gStrFastpic_Nam_Prod
mstrPageTitle = "Packeteer Baan Reports"
mstrPageSubTitle = " "
'--------------------------------------------------------------

Sub Initialize()
 'on error resume next

  mStrAppUdl = gStrFastpic_Nam_Prod
  mstrPageTitle = "Packeteer Baan Reports"
  mstrPageSubTitle = " "

End Sub
'--------------------------------------------------------------

Sub Build_cboreport '(blnInTable)
'------------------------------------------------------------------------------
' if blnInTable = True then add html row <tr> and column <td>
'------------------------------------------------------------------------------

    Const strCONTROL = "cboReport"

    'If blnInTable then Response.Write "<tr><td>" & vbCrLf
    'Response.Write "Select Report:" & vbCrLf
    'If blnInTable then Response.Write "</td><td>" & vbCrLf

    Response.Write "<td>"
    Response.Write "<STRONG>Select Report:</STRONG>" & vbCrLf

    Response.Write "<select name=" & strCONTROL & ">" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "Domestic") & ">Domestic Forms" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "International") & ">International Forms" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "PackList") & ">Pack List" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "cominvoice") & ">Commercial Invoice" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "shipperexport") & ">Shipper Export Declaration" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "SLI") & ">SLI" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "Certificate") & ">Certificate of Origin" & vbCrLf
    Response.Write "</select>" & vbCrLf
    Response.Write "</td>"

    'If blnInTable then Response.Write "</td></tr>" & vbCrLf
End Sub

Sub Build_cboprinter'(blnInTable)
'------------------------------------------------------------------------------
' if blnInTable = True then add html row <tr> and column <td>
'------------------------------------------------------------------------------

    Const strCONTROL = "cboprinter"

    'If blnInTable then Response.Write "<tr><td>" & vbCrLf
    'Response.Write "Select Report:" & vbCrLf
    'If blnInTable then Response.Write "</td><td>" & vbCrLf

    Response.Write "<td>"
    Response.Write "<STRONG>Select Printer:</STRONG>" & vbCrLf

    Response.Write "<select name=" & strCONTROL & ">" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "10") & ">cmlaser10" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "13") & ">cmlaser13" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "23") & ">cmlaser23" & vbCrLf
    Response.Write "<option" & PreserveSelect(strCONTROL, "26") & ">cmlaser26" & vbCrLf
    Response.Write "</select>" & vbCrLf
    Response.Write "</td>"

    'If blnInTable then Response.Write "</td></tr>" & vbCrLf
End Sub


Function PreserveSelect(strControl, strValue)
'----------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------
    PreserveSelect = " value=" & strValue
    If Request.QueryString(strControl) = strValue or Request.Form(strControl) = strValue then
        PreserveSelect = PreserveSelect & " selected"
    End If
End Function

Sub Main()
    'GetFormDebugInfo

    on error resume next

    'Response.Write(Request.Form("cboReport") & "<br>")
    if Request.Form.Count = 0 then exit sub
    if Request.Form("cboReport") = "select" then
        Response.Write("Please Select Report <br>")
        exit sub
    end if
    if Request.Form("cboprinter") = "select" then
        Response.Write("Please Select Printer <br>")
        exit sub
        end if
        WriteData

    if trim(Request.Form("txtSalesOrder")) = "" _
    and trim(Request.Form("txtPackingSlip")) = "" then

            Response.Write "Please Enter Sales Order."
        else
            'Response.Write "Sales Order Logic Is Under Construction."
            'Response.Write "<br>Please Enter Sales Order."
            GetSalesData
        end if



    with Response
        .Write "</P>"
        .Write "</center>"
        .Write "</form>"
    end with

    Response.Write err.description
    err.clear
End Sub
'--------------------------------------------------------------
Sub GetsalesData()
'************************************************* *************
on error resume next

    if Request.Form("txtSalesOrder") <> "" _
       or Request.Form("txtPackingSlip") <> "" then
      ' Sales Information ***
        GetAnyData_DataAccessWrapper mStrAppUdl _
            , "stored_procedure" _
            , "baan_dev.test_file_output.print_packing_slip" _
            , array("NAM", Request.Form("txtSalesOrder"), Request.Form("txtpackingslip"), "ACTIVE","1") _
            , "html_table" _
            , "t1"
            Response.Write "<br>"
    end if

    Response.Write err.description
    err.clear

set gObjCreateData = Nothing
end sub


Sub WriteData()
  Dim intAttritionPosition
  Dim strReasonCode, strRequestNumber

  Set Request.Form("txtPackingSlip")=Request.Form("i_pac king_slip")
  Set Request.Form("cboprinter") = Request.Form("i_printer")
  Set Request.Form("txtSalesOrder") = Request.Form("i_sales_order")

    'on error resume next
    GetAnyData_DataAccessWrapper mStrAppUdl _
     , "stored_procedure" _
     , "baan_dev.test_file_output.print_packing_slip" _
     , array("NAM",Request.Form("cboreport"),Request.Form ("i_printer"), Request.Form("i_sales_order"),Request.Form("i_pack ing_slip")) _
     , "html_table" _
     , "t1"
'

    Response.Write err.description
    err.clear
end sub
'--------------------------------------------------------------
function PreserveSalesOrderValue()
  if trim(Request.Form("txtsalesorder")) <> "" then
      PreserveSalesOrderValue = ucase(Request.Form("txtsalesorder"))
    else
        PreserveSalesOrderValue = ""
    end if
end function

function PreservePackingslipValue()
  if trim(Request.Form("txtPackingSlip")) <> "" then
      PreservePackingSlipValue = ucase(Request.Form("txtPackingSlip"))
    else
          PreservePackingSlipValue = ""
    end if
end function



%>
<script language=javascript>
    function salesorder_clear_family()
        {
          //alert('!');
          frmMain.txtSaleOrder.value = '';
          frmMain.txtPackingSlip.value = '';
        }

    function packslip_clear_family()
        {
          frmMain.txtSalesOrder.value = '';
          frmMain.txtPackingSlip.value = '';
        }

    function order_clear_slip()
        {
          frmMain.txtpackingslip.value = '';

        }

    function disable_order()
        {
            if (frmMain.txtSalesOrder.value > '')
            {
              frmMain.txtpackingslip.disabled = true;
                         }
        }
</SCRIPT>



<html><BODY bgColor=LemonChiffon>


<%
    GetHeader mstrPageTitle, mstrPageSubTitle
%>
<form Name=frmMain action="" method=post>

<table width=300 align=center class=cls_1>

 <tr> <%Build_cboReport %>
  <tr> <%Build_cboprinter %>
  <tr><td colspan=2><i><STRONG>Please Provide Criteria:</STRONG></i></td></tr>

    <tr><td><STRONG>Sales Order:</STRONG></td><td>
    <INPUT onchange=order_clear_slip type=text size=26 maxlength=20 name=txtsalesorder value=<%=PreservesalesorderValue%>>
    </td></tr>
    <tr><td><STRONG>Packing Slip:</STRONG></td><td>
    <INPUT onchange=packslip_clear_family type=text size=26 maxlength=20 name=txtpackingslip value=<%=PreservepackingslipValue%>>
    </td></tr>

</table>

<center>
<br>
<input type=submit title="Submit request" name=cmdSubmit value="Submit Request">
<P>
<%
    Main()

%>

Please add what is working on this page and where do you stock? So we can fix just that.

My question is how to call each of the different forms. For example I need the domestic forms to call the Pack List.

The International Forms to call all five of the forms. I am not sure how to write the subroutines for each of the five potential forms.