求教，当前提供程序不支持从单一执行返回多个记录集
<%
pgsz=13
sqlc="select id,title,scontent from Con_line where class='"&rsa("class")&"' order by id desc"
set rsc=server.createobject("adodb.recordset")
set rsc.activeconnection=conn
rsc.open sqlc,,3,1 
if rsc.eof=true and rsc.bof=true then
response.write("<table width=608 height=40 border=0 cellpadding=0 cellspacing=0>")
response.Write("<tr>")
response.Write("<td width=38 height=22><img src=misc_img/Class_Star_1.gif width=22 height=22></td>")
response.Write("<td width=570 align=center>目前没有任何此类别出行计划</td>")
response.Write("</tr>")
response.Write("<tr>")
response.write("<td height=22 colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;对不起，目前此类别下暂时没有任何线路，您可以查看其它的出游类别下是否有您感兴趣的行程计划。</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td colspan=2 class=ClassListB></td>")
response.Write("</tr>")
response.Write("</table>")
end if
if not rsc.eof then
rsc.pagesize = cint(pgsz) '设定pagesize的属性
total=int(rsc.recordcount / pgsz * -1)*-1 '计算可显示页面的总数
PageNo=Request("pageno")
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
  rsc.AbsolutePage = PageNo
  position=rsc.PageSize*PageNo
  pagebegin=position-rsc.PageSize+1
  if position < rsc.RecordCount then
  pagend=position
  else  
  pagend= rsc.RecordCount
end if

Do while not (rsc is nothing) 
RowCount = rsc.PageSize
Do While Not rsc.EOF and rowcount > 0
If n=1 then
  Response.Write("")
  ELSE
  Response.Write("")
  End If
n=1-n

y_content=(rsc("scontent"))
if len(y_content)>41 then
y_content=left(y_content,40)&".."
end if
response.write("<table width=608 height=40 border=0 cellpadding=0 cellspacing=0>")
response.Write("<tr>")
response.Write("<td width=38 height=22><img src=misc_img/Class_Star_1.gif width=22 height=22></td>")
response.Write("<td width=570><a href=index_Showline.asp?id="&rsc("id")&" target=blank>&nbsp;&nbsp;&nbsp;"&rsc("title")&"</a></td>")
response.Write("</tr>")
response.Write("<tr>")
response.write("<td height=22 colspan=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&(y_content)&"</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td colspan=2 class=ClassListB></td>")
response.Write("</tr>")
response.Write("</table>")

RowCount = RowCount - 1
rsc.MoveNext
  Loop
set rsc = rsc.NextRecordSet <-----------"当前提供程序不支持从单一执行返回多个记录集。"
  Loop
Conn.Clo