大家来看看啊！这个问题咋解决嘞！

[red_wolf]

我的代码是这么写的！
<select size="1" name="D1">
<option style="color:#00f">请选择</option>
<option value="0">电子书籍</option>
<%Call ConnSelect("BookType","BookType_Type=0"," Order By BookType_ID asc")%>
<%If Not Rs.Eof Then
Do While Not Rs.Eof%>
<option value=<%=Rs("BookType_ID")%>><%=Rs("BookType_Name")%></option>
<%Call ConnSelect1("BookType","BookType_Type="&Rs("BookType_ID")," Order By BookType_ID asc")%>
<%If Not Rs1.Eof Then
Do While Not Rs1.Eof%>
<option value=<%=Rs1("BookType_ID")%>>  +<%=Rs1("BookType_Name")%></option>
<%Rs1.MoveNext
Loop
End If%>
<%Rs.MoveNext
Loop
End If%>


其中
'*************************************************
'数据库select函数
'*************************************************
Sub ConnSelect(Dtable,DTJ,DPX)
Set Rs=server.createobject("adodb.recordset")
Sql="select * from "&Dtable&" where "&DTJ & DPX&""
Rs.open Sql,Conn,1,1
'Dtable=查找的表
'DTJ=查询条件
'DPX=查询排序
End Sub

'*************************************************
'数据库循环取出中的select函数
'*************************************************
Sub ConnSelect1(Dtable1,DTJ1,DPX1)
Set Rs1=server.createobject("adodb.recordset")
Sql1="select * from "&Dtable1&" where "&DTJ1 & DPX1&""
Rs1.open Sql1,Conn,1,1
'Dtable1=查找的表
'DTJ1=查询条件
'DPX1=查询排序
End Sub

请问问题出在哪里？？怎么解决？？

[sdts]

你的rs1的作用域只是在函数里面 出了函数就无效了
不要写那个连接查询的函数
直接写在整个程序里啊 不需要写那个函数啊

[red_wolf]

一样的阿！为什么rs就可以rs1就不可以？？

[red_wolf]

谢！

[fluxayxxx]

提示的是什么错误？？