面包板电子制作130例:为什么这段代码在有的电脑上面能编译,有的却不能啊?要安装什么插件么?

我的网页里面的有段代码在有的服务器上能编译有的却不能,知道为什么么?需要安装什么组件么?
编译不了的代码如下:
<%
sql = "select * from hylbx order by selectid"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%
set hangye2=server.CreateObject("adodb.recordset")
hangyesql2="select xlid,mx from hylbx where dlid='"&rsinfo("dlid")&"' and xlid='"&rsinfo("xlid")&"'"
hangye2.open hangyesql2,conn,1,1
while not hangye2.eof
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%count = 0
do while not rs.eof%>
subcat[<%=count%>] = new Array("<%= trim(rs("mx"))%>","<%= trim(rs("dlid"))%>","<%= trim(rs("xlid"))%>");
<%count = count + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount=<%=count%>;

function changelocation(ypxxone)
{
document.form.ypxxtwo_id.length = 0;

var ypxxone_id=ypxxone_id;
var i;
document.form.ypxxtwo_id.options[0] = new Option('<%=trim(hangye2("mx"))%>','<%=trim(hangye2("xlid"))%>');
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == ypxxone)
{
document.form.ypxxtwo_id.options[document.form.ypxxtwo_id.length] = new Option(subcat[i][0], subcat[i][2]);
}
}

}
</script>
<%
hangye2.movenext
wend
hangye2.close
set hangye2=nothing
%>
该问题已经解决,我已经发现了错误的原因，原来是服务器上的数据库里面的小分类的类别不是在大分类的类别里面,这个问题已经决了，希望大家以此为鉴,程序出错未必就都是程序的问题，也可能是数据库里面的问题.