请高手帮忙！！！取得控件值的问题！！！

[evilzydar]

我想得到控件的值，可怎么也取不到！
<%if rs.recordcount < 0 then
rs.MoveFirst
Do Until rS.EOF
SuppAName=rs("Name")%>
<script language="vbscript" >
main.Name.ColumnCount = "2"
main.Name.ColumnWidths = "50;"
call document.main.Name.additem ("<%=rs("code")%>")

</script>
<% rs.MoveNext
Loop
end if
rs.Close
%>
上面的代码是向名为name的combox控件里添加数据（添加成功！）下面的代码是当触发name_change事件时，动态的向名为bdm2的combox控件里添加数据，但是总也取不动name的值不知道为什么？？
<script language="vbscript">
sub Name_change()
main.bdm2.clear
<% code=request.form("code")%>
<%sql2="select Name,Code,DName from rm where code=' " & code & " '"
set rs2=connect.execute(sql2)
if not(rs2.eof) and not(rs2.bof) then
if rs2.recordcount < 0 then
rs2.MoveFirst
Do Until rS2.EOF
%>
call document.main.bdm2.additem("<%=rs2("DName")%>")
<%rs2.MoveNext
Loop
end if
end if
rs2.Close
%>
end sub
</script>
请高手指点！！！！！！