高手帮帮忙！当前提供程序不支持从单一执行返回多个记录集。

<%If RS.RecordCount=0 then%>  <tr> 
 <td width="92%" height="20" align="center" colspan="7"><font color="#FF0000">
 <span style="font-size: 9pt; font-weight: 700">
 <%response.Write("无上线订单!")%></span></font></td>
  </tr>

<%else 
PgSz=5 
RS.PageSize = Cint(PgSz)
Total=INT(RS.recordcount/PgSz * -1)*-1
PageNo=request("p") 
if PageNo="" Then 
PageNo = 1 
else 
PageNo=PageNo+1 
PageNo=PageNo-1 
end if ScrollAction = Request("ScrollAction") 
if ScrollAction = " 上一页 " Then 
PageNo=PageNo-1 
end if 
if ScrollAction = " 下一页 " Then 
PageNo=PageNo+1 
end if 
if PageNo < 1 Then 
PageNo = 1 
end if n=1 
RS.AbsolutePage = PageNo 
position=RS.PageSize*PageNo 
pagebegin=position-RS.PageSize+1 
if position < RS.RecordCount then 
pagend=position 
else 
pagend= RS.RecordCount 
end if Response.Write "<table border=1 width='100%' height=45 cellspacing=0 style='border-collapse: collapse' bordercolor='#000000'>" response.write"<tr>"response.write"<th width='16%' height=20 bgcolor='#336699'>"response.write"<font face='宋体' style='font-size: 9pt' color='#00FF00'><span style='text-decoration:none'>上线</span></font>"response.write"<span style='font-weight: 400; text-decoration:none'>"response.write"<font face='宋体' style='font-size: 9pt' color='#FFFFFF'>工作单号</font></span></th>"response.write"<th width='25%' height=20 bgcolor='#336699'>"response.write"<span style='font-weight: 400'>"response.write"<font face='宋体' style='font-size: 9pt' color='#FFFFFF'>产品型号</font></span></th>"response.write"<th width='18%' height=20 bgcolor='#336699'>"response.write"<span style='font-weight: 400'>"response.write"<font face='宋体' style='font-size: 9pt' color='#FFFFFF'>合同号</font></span></th>"response.write"<th width='4%' height=20 bgcolor='#336699'>"response.write"<span style='font-weight: 400'>"response.write"<font face='宋体' style='font-size: 9pt' color='#FFFFFF'>数量</font></span></th>"response.write"<th width='10%' height=20 bgcolor='#336699'>"response.write"<font face='宋体' color='#FFFFFF'>"response.write"<span style='font-size: 9pt; font-weight: 400'>开始日期</span></font></th>"response.write"<th width='10%' height=20 bgcolor='#336699' style='font-size: 14px'>"response.write"<font face='宋体' color='#FFFFFF'>"response.write"<span style='font-size: 9pt; font-weight: 400'>完成日期</span></font></th>"response.write"<th width='9%' height=20 bgcolor='#336699'>"response.write"<font face='宋体' color='#FFFFFF'>"response.write"<span style='font-size: 9pt; font-weight: 400'>详细信息</span></font></th>"response.write"</tr>" Do while not (RS is nothing) 
RowCount = RS.PageSize 
Do While Not RS.EOF and rowcount > 0 
If n=1 then 
Response.Write "< TR BGCOLOR=#FFFFFF>" 
ELSE 
Response.Write "< TR BGCOLOR=#EEEEEE>" 
End If 
n=1-n%> 
 <td width="16%" height="20" align="left" style="font-size: 14px"><font face="宋体"><span 
style="font-size: 9pt"><%=rs("orderid")%></span></font></td>
      <td width="25%" height="20" align="left" style="font-size: 14px"><font face="宋体"><span 
style="font-size: 9pt"><%=rs("cpmc")%></span></font></td>
      <td width="18%" height="20" align="left" style="font-size: 14px"><font face="宋体"><span 
style="font-size: 9pt"><%=rs("hthm")%></span></font></td>
 <td width="4%" height="20" align="center" style="font-size: 14px"><span style="font-size: 9pt">
<%=rs("sl")%></td>
 <td width="10%" height="20" align="center" style="font-size: 14px"><span style="font-size: 9pt">
<font color="#FF0000"><%=rs("ksrq")%></font></td>
 <td width="10%" height="20" align="center" style="font-size: 9pt">
　<%=rs("wcrq")%></td>
 <td width="9%" height="20" align="center" style="font-size: 14px">
<a href="orderdetail.asp?orderid=<%=rs("orderid")%>">
<font face="宋体" style="font-size: 9pt"><span style="text-decoration: none">详细信息
</span></font></td>
    </tr>
<% 
RowCount = RowCount - 1 
RS.MoveNext 
Loop 
set RS = RS.NextRecordSet 
Loop 
Conn.Close 
set rs = nothing 
set Conn = nothing 
%> 
</TABLE> <FORM METHOD=GET ACTION="orderfhd.asp"> 
<INPUT TYPE="HIDDEN" NAME="pageno" VALUE="<%=PageNo%>"> 
<% 
if PageNo > 1 Then 
response.write "< INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 上一页 '>" 
end if 
if RowCount=0 and PageNo<>Total then 
response.write"<INPUT TYPE=SUBMIT NAME='ScrollAction' VALUE=' 下一页 '>" 
end if 
response.write "</FORM>" 
End if 
%> 提示：错误类型：
ADODB.Recordset (0x800A0CB3)
当前提供程序不支持从单一执行返回多个记录集。