哪位大侠帮偶看看啊，我想通过下面的函数从数据库中取出数值，然后赋值给文本域，可是显示网页有错误
1 <script  language=vbscript>
2 function CalBalance(TextName)
3    Dim rs, sql
4    Set rs = server.CreateObject("adodb.recordset")
5    sql = "select WorkerID,FirstNum from V2studio_Workers Where WorkerID=2"
6    rs.Open sql, conn, 1, 1
7    TextName.value = rs("FirstNum")
8    rs.Close
9    Set rs = Nothing
10 End function
11 </script>

谢谢，问题解决了，但又出现了新的问题：提示下标越界: '[number: 0]
 <%
 function CalBalance(TextName)
    Dim rs, sql
    Set rs = server.CreateObject("adodb.recordset")
    WorkerIdName = Split(Request.Form("WorkerID"), "┎╂┚")
    sql = "select WorkerID,FirstNum from V2studio_Workers Where WorkerID="&WorkerIdName(0)
    rs.Open sql, conn, 1, 1
    TextName.value = rs("FirstNum")
    rs.Close
    Set rs = Nothing
 End function
%>

有啊，WORDID是个列表，相关语句是这样的：
...
    response.write("<option value='"&rs("WorkerID")&"┎╂┚"&rs("WorkerName")&"'")
    if GroupID=rs("WorkerID") then response.write ("selected")
    response.write(">"&rs("WorkerName")&"</option>")
    rs.movenext
...
<select name="WorkerID">
          <% call SelectGroup() %>
        </select>

Request.Form("WorkerID")显示的是空值（但列表显示有值）
是不是执行顺序的原因啊