Dynamically Load a Drop Down List Box

[Larry Hunter]

Hi -

One Other question. How is it possible to dynamically load a drop down selection
list box with data while the page is loaded on the client's machine?

Many thanks

Larry

[Glenn]

Try this. Don't worry about the fact that I'm processing a recordset; this
IS client-side code (I'm using RDS to get a recordset to the client dynamically).
The source of the data that you use to load your combo/list box is whatever
you need.

Sub LoadStates()

Dim rsStates
Dim fldStAbbr
Dim fldStName
Dim objOptionElement
Dim nX

Set rsStates = gobjNCSCAT.GetRecordSet "ndstate"
Set fldStAbbr = rsStates.fields.item("stabbr")
Set fldStName = rsStates.fields.item("stname")

nX = 0

While Not rsStates.EOF
Set objOptionElement = window.document.createElement("OPTION")
objOptionElement.value = fldStAbbr.value
objOptionElement.text = fldStAbbr.value & " - " & fldStName.value
window.frmContactMaint.cboStCdContact.add objOptionElement

rsStates.MoveNext
nX = nX + 1
Set objOptionElement = Nothing
Wend

Set rsStates = Nothing
Set fldStAbbr = Nothing
Set fldStName = Nothing

End Sub



"Larry Hunter" <Hunterlmc@gateway.net> wrote:
>
>
>
>Hi -
>
>One Other question. How is it possible to dynamically load a drop down
selection
>list box with data while the page is loaded on the client's machine?
>
>Many thanks
>
>Larry
>
>

[Larry Hunter]

Another developer suggested that I use the IFRAME tag to reference another
page. This approach has the benefit of allowing me to query the database
for the values that I require. However, this approach also leaves the question
of how I pass selected values back from the frame.

Larry



"Glenn" <gaclark@broughton-sys.com> wrote:
>
>Try this. Don't worry about the fact that I'm processing a recordset; this
>IS client-side code (I'm using RDS to get a recordset to the client dynamically).
> The source of the data that you use to load your combo/list box is whatever
>you need.
>
>Sub LoadStates()
>
> Dim rsStates
> Dim fldStAbbr
> Dim fldStName
> Dim objOptionElement
> Dim nX
>
> Set rsStates = gobjNCSCAT.GetRecordSet "ndstate"
> Set fldStAbbr = rsStates.fields.item("stabbr")
> Set fldStName = rsStates.fields.item("stname")
>
> nX = 0
>
> While Not rsStates.EOF
> Set objOptionElement = window.document.createElement("OPTION")
> objOptionElement.value = fldStAbbr.value
> objOptionElement.text = fldStAbbr.value & " - " & fldStName.value
> window.frmContactMaint.cboStCdContact.add objOptionElement
>
> rsStates.MoveNext
> nX = nX + 1
> Set objOptionElement = Nothing
> Wend
>
> Set rsStates = Nothing
> Set fldStAbbr = Nothing
> Set fldStName = Nothing
>
>End Sub
>
>
>
>"Larry Hunter" <Hunterlmc@gateway.net> wrote:
>>
>>
>>
>>Hi -
>>
>>One Other question. How is it possible to dynamically load a drop down
>selection
>>list box with data while the page is loaded on the client's machine?
>>
>>Many thanks
>>
>>Larry
>>
>>
>