求救：VBS运行时错误 (0x800A000D) 类型不匹配，怎么改？

[u010547026]

asp调用js函数write_select_yhdq()报类型不匹配，怎么改？先谢谢了！
<%
function get_select_yhdq()
dim dq
Set newconn=Server.CreateObject("ADODB.Connection")
newconn.Open"MyDSN","sa"
SQLcmd="select 地区名称 from lxdqxx order by 地区名称"
Set rs=newconn.Execute(SQLcmd)
dq=rs("地区名称")
response.Write(dq)
write_select_yhdq(dq)
rs.MoveNext
Do While Not rs.EOF
if dq<>rtrim(rs("地区名称")) then
dq=rtrim(rs("地区名称"))
write_select_yhdq(dq)
end if
rs.MoveNext
Loop
rs.close
newconn.Close
end function
get_select_yhdq()
%>
<script language="javascript">
function write_select_yhdq(mydq)
{
var obj = document.getElementById("select_yhdq");
obj.options.add(new Option(mydq));//添加一个option
}
</script>

[u010547026]

谢谢您的指导！可是这样一来，option中只能出现rs("地区名称")最后一个地区名称，没有全部添加。

[Go 旅城通票]

楼主先弄清楚客户端和服务器端先。。服务器端不能直接调用客户端方法，输出js来实现客户端的相互调用

function get_select_yhdq()
  dim dq
  Set newconn=Server.CreateObject("ADODB.Connection")
  newconn.Open"MyDSN","sa"
  SQLcmd="select 地区名称 from lxdqxx order by 地区名称"
  Set rs=newconn.Execute(SQLcmd)
  dq=rs("地区名称")
  response.Write(dq)
''''''''''''''''''''''''''''''''''''
  response.write "<script> window.onload = function () { write_select_yhdq('"&dq&"') }</script>"
  rs.MoveNext
Do While Not rs.EOF
    if dq<>rtrim(rs("地区名称")) then
        dq=rtrim(rs("地区名称"))
''''''''''''''''''''''''''''''''''''
  response.write "<script>window.onload = function () { write_select_yhdq('"&dq&"') }</script>"
    end if
      rs.MoveNext
    Loop
  rs.close
  newconn.Close
end function

[Go 旅城通票]

组合一下就行。。没注意看

function get_select_yhdq()
  dim dq
  Set newconn=Server.CreateObject("ADODB.Connection")
  newconn.Open"MyDSN","sa"
  SQLcmd="select 地区名称 from lxdqxx order by 地区名称"
  Set rs=newconn.Execute(SQLcmd)
  dq=rs("地区名称")
  dim js

  response.Write(dq)
''''''''''''''''''''''''''''''''''''
  js="write_select_yhdq('"&dq&"');"
  rs.MoveNext
Do While Not rs.EOF
    if dq<>rtrim(rs("地区名称")) then
        dq=rtrim(rs("地区名称"))
''''''''''''''''''''''''''''''''''''
js=js&"write_select_yhdq('"&dq&"');"
    end if
      rs.MoveNext
    Loop
    '''''''''''''''
  response.write "<script>window.onload = function () { "&js&" }</script>"
  rs.close
  newconn.Close
end function