IE4中，客户端纠错的问题(100分)

我在浏览器里动态产生了若干个Select(>10个， 具体数目未知）,
然后里面有1..10十个数字供用户选择，但是用户不能重复选择，
所以我只能在浏览器端用VBScript校验，用户每选一个，我都去
判断是否这个数字已经被选择了。我在动态产生SElect时，
给每个Select 的Id 设置为Sel + 编码
<Script LANGUAGE = "VBScript">
<!--
Subdo
cument_onClick()
Dim SelectObject
Dim TempObject
Dim Flag
Set SelectObject = Window.Event.srcElement

Flag = 0

if UCase(Left(SelectObject.Id, 3)) = "SEL" then
for I = 1 todo
cument.forms("main").length
Set TempObject =do
cument.forms("main").item(I)
if (UCase(Left(TempObject.Id, 3)) = "SEL") and (TempObject.Value <> 0 ) and (TempObject.Value = SelectObject.Value ) then
Falg = 1
End if
Next
End if
msgBox(CStr(Flag))
End Sub

-->
</Script>
可是这段程序还是不行，要么说少运行期对象，要么不工作，请大家
给我看一看！有没有好的方法？

你的Set SelectObject = Window.Event.srcElement得到正确值了吗?

怪不得我一进来就出错

selectobject.id=""?

try it
Subdo
cument_onClick()
Dim SelectObject
Dim TempObject
Set SelectObject = Window.Event.srcElement

if UCase(Left(SelectObject.Id, 3)) = "SEL" then
for each tempObject indo
cument.forms("main")
,,,,,,,,,
Next
End if
End Sub

进这页报错是
你在这一页前面部分用了《Script LANGUAGE = "VBScript"》指定了是 vbscript
而本页最后还有：
《script》
window.onload=null;
《/script》
没有指定是javascript，ie 把它当vbscript了。
不过这个问题可能和你自己的问题无关

多人接受答案了。