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.

Code:

<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>

Thread: Adding option to <select>???

Thread Tools

Display

Posting Permissions