Need to use oRs to get a select value for a combo box

This is the continuation of question:
http://www.experts-exchange.com/Web_Development/Web_Languages-Standards/ASP/Q_23095904.html?cid=239#a20698760
It is a two part question.

I have the following function

Function FillCboRecordSetAssetTypes(selectName,fieldName)
      dim sCBO
      RecordSetAssetTypes.MoveFirst
      do while not RecordSetAssetTypes.EOF      
            sCBO = sCBO & "<option value='" & RecordSetAssetTypes.Fields(fieldName).Value & "'"
                  IF Request(selectName) = RecordSetAssetTypes.Fields(fieldName).Value Then
                        sCBO = sCBO & " selected='selected'"
                  End If
            sCBO = SCBO & ">" & RecordSetAssetTypes.Fields(fieldName).Value & "</option>"
            RecordSetAssetTypes.MoveNext
      loop
 
      FillCboRecordSetAssetTypes = sCBO
End Function

This populates cboMainCategory perfectly.

  <select id='cboMainCategory' name='cboMainCategory' class='RegularDropDown' style='width:50px;'><%=FillCboRecordSetAssetTypes("cboMainCategory","MACHINE_CATEGORY_ID")%></select>

I need to use the main select of the following stored procedure execution:
Set oStoredProcInterface = New cStoredProcInterface
Set oConn = server.CreateObject("ADODB.Connection"):oConn.Open session("ConnectionString")
redim ParameterArray(5,0)
Call oStoredProcInterface.InsertParamInArray(ParameterArray, "PCCOMPANYID", adChar , adParamInput, 2, "MS")
set oRs = oStoredProcInterface.ExecuteStoredProc (oConn, Application("JTExtrusion20Prefix") & ".PKG_SETTINGS.GETLOOKUPSETTINGS", ParameterArray)

oRs contains the appropriate values.

I need to get oRs.Fields ("MACHINE_DOWNTIME_OPERATION_ID")

and set that in the above fuction. So what I think is this. Pass another value in the function.

and then modify the selected value of the combo box. Can someone help me modify the below function.

I would appreciate it.

Function FillCboRecordSetAssetTypes(selectName,fieldName, oRs.Fields ("MACHINE_DOWNTIME_OPERATION_ID"))

      dim sCBO
      RecordSetAssetTypes.MoveFirst
      do while not RecordSetAssetTypes.EOF      
            sCBO = sCBO & "<option value='" & RecordSetAssetTypes.Fields(fieldName).Value & "'"
                  IF Request(selectName) = RecordSetAssetTypes.Fields(fieldName).Value Then
                        sCBO = sCBO & " selected='selected'"
                  End If
            sCBO = SCBO & ">" & RecordSetAssetTypes.Fields(fieldName).Value & "</option>"
            RecordSetAssetTypes.MoveNext
      loop
 
      FillCboRecordSetAssetTypes = sCBO
End Function



Start Free Trial