这段用vbscript应该怎么写？

[zhangxhsj]

obj对象为form对象frm_plan的一个selection对象

sub SetValue(obj,val)
if not isnull(val) and val<>"" then
'这里要将selection对象obj的选中的项设置为val的值。
end if
end sub

该如何来做？
obj.value=val不行。

[zhangxhsj]

注意，这段是服务器端程序。

[wpmsoft]

得重新定义一个selection的对象，然后才可以。
dim myobj
myobj = new ....
set myobj = obj
myboj.value = val

[zhangxhsj]

我这样写，可是还不对。
如果加
myobj=new selection
提示selection类不存在。

sub SetValue(obj,val)
dim myobj
set myobj=obj
if not isnull(val) and val<>"" then
myobj.value=val
end if
end sub
提示错误：
缺少对象: 'obj'

[free_wind]

好象搞错了吧？
服务器端哪来的form,又哪来的selection？

[ki88]

米服了你了老大!!!