'    ChassisID Dropdown Menu 
    Dim strChassisbuildSQL
    Dim rschassisbuilddata
    Dim strChassisMatchSQL
    Dim rschassismatchdata
 
    WriteLine "<tr><td>ChassisID:</td>"
    WriteLine "<td><form><select name='dbtChassisID'>"
    strChassisbuildSQL = "SELECT ChassisID, Nickname FROM Chassis ORDER BY Nickname"
    Set rsChassisbuildData = cnDB.Execute(strChassisbuildSQL)
 
    If strChassisID = "" then
        Writeline "<option value=''></option>"
    Else
        Writeline strchassisID
        strChassisMatchSQL = "Select Nickname from Chassis where ChassisID = " & strChassisID         
        Set rsChassisMatchData = cnDB.Execute(strChassisMatchSQL)
        Writeline "<option value='" & strChassisID & "'>" & rsChassisMatchData("Nickname") & "</option>"
        rschassismatchdata.close
    end if
 
    Do until rschassisbuilddata.EOF
            Writeline "<option value='" & rschassisbuilddata("ChassisID") & "'>" & rschassisbuilddata("Nickname") & "</option>"
            rschassisbuilddata.MoveNext
    Loop
    rschassisbuilddata.close
    WriteLine "</select></form></td></tr>"
' END CHASSISID DROPDOWN MENU  
 
    WriteLine "<tr><td>Bay:</td>"
    WriteLine "<td><input type=text size=40 " _
        & "maxlength=40 name=dbtBay value=" _
        & DQ & strBay & DQ & "></td></tr>"
 
'    BEGIN MODULE DROPDOWN MENU
    Dim strModulebuildSQL
    Dim rsModulebuilddata
    Dim strModuleMatchSQL
    Dim rsModuleMatchData
 
    WriteLine "<tr><td>ModuleID:</td>"
    WriteLine "<td><form><select name='dbtNickName'>" 'Start Form and Assign value dbtNickName
    strModuleBuildSQL = "SELECT ModuleNameID, ModuleNickName FROM ModuleName ORDER BY ModuleNickName" ' SQL string to poll ModuleName table for available Modules
    Set rsModuleBuildData = cnDB.Execute(strModuleBuildSQL) ' Set SQL string
    If strNickName = "" then ' If there is no existing value for the module name, leave a blank option at top
        Writeline "<option value=''></option>"
    Else
        ' Writeline strNickName 
        strModuleMatchSQL = "Select ModuleNickname, ModuleNameID from ModuleName where ModuleNameID = " & strNickName 
        Set rsModuleMatchData = cnDB.Execute(strModuleMatchSQL)
        Writeline "<option value='" & strNickName & "'>" & rsModuleMatchData("ModuleNickName") & "</option>"
        rsModuleMatchData.close
    end if
 
    Do until rsModuleBuildData.EOF
        Writeline "<option value='" & rsModuleBuildData("ModuleNameID") & "'>" & rsModuleBuildData("ModuleNickname") & "</option>"
        rsModuleBuildData.MoveNext
    Loop
    rsModuleBuildData.close
    WriteLine "</select></form></td></tr>"
'     END MODULE DROPDOWN MENU