DEFINE CLASS StateCombobox AS WebCombobox OF voodoo.prg > LABEL = 'State:' > Width = 250 > > FUNCTION OnLoad > DODEFAULT() > THIS.AddListItem('*** USA and Canada - Please select a state','--') > THIS.AddListItem('Alabama','AL') > THIS.AddListItem('Alaska','AK') > THIS.AddListItem('Alberta','AB') > THIS.AddListItem('American Samoa','AS') > ** More states added here... > ENDFUNC >ENDDEFINE>
oPage.AddObject("cmbState","StateCombobox") >oPage.ControlSource = "Customer.State">