Code:
'Javascript:
<script language=javascript>
<!--
function ClearList()
{
var objSelect = frmMyForm.MySelect.options;
var intLoop;
for (intLoop=objSelect.length-1; intLoop > -1; intLoop--)
objSelect.remove(intLoop);
}
//-->
</script>
'Same thing in VBScript:
<script language=vbscript>
<!--
Sub ClearList
Dim objSelect
Dim intLoop
Set objSelect = frmMyForm.MySelect.options
For intLoop=objSelect.length-1 To 0 Step -1
objSelect.remove(intLoop)
Next
End Sub
-->
</script>