<PUBLIC:COMPONENT>
<PUBLIC:ATTACH EVENT="onreadystatechange" ONEVENT="Fill()"/>
<PUBLIC:PROPERTY NAME="Rowsource"/>
<SCRIPT LANGUAGE="VBScript">
function Fill()
if me.readystate = "complete" then
dim oOption 
dim source
dim i
execute "set source =  " & right(Rowsource,len(Rowsource) -1)
do until source.recordset.EOF 
	set oOption = document.createElement("OPTION")
		me.options.add oOption

		oOption.Value = source.recordset.fields(0)
		oOption.innerText = source.recordset.fields(1)
		
	source.recordset.movenext
loop
end if
end function

</SCRIPT>
</PUBLIC:COMPONENT>