How do I add items to a list box present on htlm page using vbscript at click of a button at run time.
thnaks
Printable View
How do I add items to a list box present on htlm page using vbscript at click of a button at run time.
thnaks
Here you go:
Code:<HTML>
<HEAD>
<SCRIPT Language=vbscript>
Sub LoadListItems
Dim colOptions
Dim objOption
Dim i
Set colOptions = lstItems.options
For i = 1 To 10
Set objOption = document.createElement("OPTION")
colOptions.add(objOption)
objOption.innerText = "Item: " & CStr(i)
Next
End Sub
Sub DeleteItems
Dim i
Dim colOptions
Set colOptions = lstItems.options
For i = colOptions.length - 1 To 0 Step - 1
colOptions.remove i
Next
End Sub
</SCRIPT>
</HEAD>
<BODY>
<P> </P>
<SELECT Id=lstItems size=10 Style="Width=150">
</SELECT>
<INPUT Type=Button OnClick=LoadListItems Id=cmdButton Value="Add Items">
<INPUT Type=Button OnClick=DeleteItems Id=cmdButton Value="Delete Items">
</BODY>
</HTML>