PDA

Click to See Complete Forum and Search --> : Adding option to <select>???

MichaelK
May 16th, 2000, 11:11 PM
Hi,
for some reason, I can't add another option to my combo box. I have:

sub init()
oOption = document.createElement("OPTIONS")
oOption.text="Apples"
oOption.value="5"
FontName.options.add(oOption)
end sub
Where fontname is the name of the combo box and I want to add lets say "apples" to my list. I need to use VBScript BTW so I can use my activeX controls which need to interact with it. Anyone know what I'm doing wrong? thanks!
Mark Sreeves
May 22nd, 2000, 07:49 PM
this should help you.


<BODY><HEAD>
<script Language="VBScript">
dim i
sub ShowDetails()
i = i + 1
dim oOption
set oOption = document.createElement("OPTION")
oOption.text="Apples"
oOption.value=i
document.frm1.select1.add(oOption)
end sub
</script>
</head>

<form name="frm1">
<SELECT id=select1 name=select1 size=2 style="HEIGHT: 134px; WIDTH: 258px">
</SELECT>
</form>
<input type="button" onclick="ShowDetails()" value="Click">
</BODY></HTML>