set recom = server.createobject(")
recom.activeconnection = cn7
= 4
= "Get_Tutor"
recom.Parameters.Append   recom.CreateParameter("@pKeyword",202,1,200,pCountrystr)
recom.Parameters.Append   recom.CreateParameter("@pRegion",202,1,200,pArea)
recom.Parameters.Append   recom.CreateParameter("@pPrefecture",202,1,200,pPrefecture)
recom.Parameters.Append   recom.CreateParameter("@pInstitutionType",202,1,200,pInstitutionType)
recom.Parameters.Append   recom.CreateParameter("@pGrantAmount",202,1,200,pGrantAmount)
recom.Parameters.Append   recom.CreateParameter("@pTitles",202,1,2000,pProfessionalTitle)
recom.Parameters.Append   recom.CreateParameter("@pPaperOutput",202,1,200,pPaperCount)
recom.Parameters.Append   recom.CreateParameter("@pCoAuthors",202,1,200,pCoAuthor)
recom.Parameters.Append   recom.CreateParameter("@pEmergingKOLPercentile",202,1,200,pCAGRPaperCount)
recom.Parameters.Append   recom.CreateParameter("@pPatents",202,1,200,pPatentCount)
recom.Parameters.Append   recom.CreateParameter("@pTrack",202,1,200,pTrack)  
recom.Parameters.Append   recom.CreateParameter("@PageSize",202,1,200,PageSizeX)
recom.Parameters.Append   recom.CreateParameter("@pCurrentPage",202,1,200,Page)
recom.Parameters.Append   recom.CreateParameter("@pOrderBy",202,1,200,orderby(2))
recom.Parameters.Append   recom.CreateParameter("@pOrderBySeq",202,1,200,orderby(3))

set rs = recom.execute()
if rs("TotalCount") > 0 then
 FieldCount=rs("TotalCount")
else     
 FieldCount=0
end if


if (FieldCount mod PageSizeX)>0 then     
allpages=((FieldCount - (FieldCount mod PageSizeX))/ PageSizeX)+1
else     
allpages= (FieldCount / PageSizeX)
end if

set rs = rs.NextRecordset


报错，当前提供程序不支持从单一执行返回多个记录集 不知道是什么原因，存储过程返回的是两个记录集,只是偶尔报错！