Sur

Не могу просчитать кол-во страниц вв возвращённом наборе данных посредством хранимой процедуры из БД MS SQL..
Может кто подскажет решение проблемы?

Natala

Поменяй
Recorset.CursorLocation = 3
Recorset.LockType = 3

DiP

помогает обычно
rec.MoveLast
rec.MoveFirst
a=rec.RecordCount

Sur

Не всё так просто
Вот код может кто глянет опытным глазом чего тут не хватает?

<%
Dim Page
Dim rsProducts
Dim RowCount
Dim PageCounter


Page = Request.QueryString('Page')


If Page = '' then Page = 1

RowCount = 0


' Create an ADO database connection
set dbProducts = server.createobject('adodb.connection')

' Create the record set
set rsProducts = server.CreateObject('adodb.recordset')

' Open the connection using our ODBC file DSN
dbProducts.open('filedsn=FabricStore')

' Build the sql statement to retrieve the products in
' the department. The ID of the department is passed in.
sql = 'execute sp_RetrieveDeptProducts ' & request('idDept')


'Установим cursor type в adOpenStatic
rsProducts.CursorLocation=3
rsProducts.LockType=3



' Execute the SQL statement and retrieve the record set
set rsProducts = dbProducts.Execute(sql)

'Кол-во записей на странице будет 6
rsProducts.PageSize = 6

%>


<TABLE border=0>

'Вывод в два столбца
<% Do while ((Not rsProducts.eof) And
(RowCount < rsProducts.PageSize/2))

chrProductName = rsProducts('chrProductName')
chrProductImage = rsProducts('chrProductImage')
idProduct = rsProducts('idProduct')

%>
<tr>
<td width='180' align=center>
<a href='product.asp?idProduct=<%=idProduct%>'>
<img src='images/products/sm_<%=chrProductImage%>'
align='middle' border='0'>

<Font color=blue><%=chrProductName%></font></a>


</td>

<% rsProducts.Movenext

if rsProducts.eof=true then exit do

chrProductName = rsProducts('chrProductName')
chrProductImage = rsProducts('chrProductImage')
idProduct = rsProducts('idProduct')

%>

<td width='180' align=center>
<a href='product.asp?idProduct=<%=idProduct%>'>
<img src='images/products/sm_<%=chrProductImage%>'
align='middle' border='0'>


<Font color=blue><%=chrProductName%></font></a>


</td>
</tr>
<%
rsProducts.Movenext
RowCount = RowCount + 1
Loop


'Вывод ссылок на страницы
For PageCounter=1 to rsProducts.PageCount
Response.Write '<a href='Products.asp?Page='&PageCounter&''>
'&PageCounter&'</a>'
next

rsProducts.Close
set rsProducts=Nothing
%>

@monstrU

у меня такой вариант работает
rsTel.CursorType=1;
rsTel.CursorLocation=3;

0

@monstrU

и еще, тут две статьи были как раз по этой теме, почитай

0

@.:Wind:.

Код на VB но в VBScript переделать не есть проблема код взят с MSDN у меня работает, правда на JScript, код приведен после VBScript.
[code]

Public Sub AbsolutePageX()

Dim rstEmployees As ADODB.Recordset
Dim strCnn As String
Dim strMessage As String
Dim intPage As Integer
Dim intPageCount As Integer
Dim intRecord As Integer

' Open a recordset using a client cursor
' for the employee table.
strCnn = 'Provider=sqloledb;' & _
'Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; '
Set rstEmployees = New ADODB.Recordset
' Use client cursor to enable AbsolutePosition property.
rstEmployees.CursorLocation = adUseClient '=3
rstEmployees.Open 'employee', strCnn, , , adCmdTable

' Display names and hire dates, five records
' at a time.
rstEmployees.PageSize = 5
intPageCount = rstEmployees.PageCount
For intPage = 1 To intPageCount
rstEmployees.AbsolutePage = intPage
strMessage = ''
For intRecord = 1 To rstEmployees.PageSize
strMessage = strMessage & _
rstEmployees!fname & ' ' & _
rstEmployees!lname & ' ' & _
rstEmployees!hire_date & vbCr
rstEmployees.MoveNext
If rstEmployees.EOF Then Exit For
Next intRecord
MsgBox strMessage
Next intPage
rstEmployees.Close

End Sub

<script language=jscript runat=server>
var objConnection=new ActiveXObject('ADODB.Connection');
var objRecordset=new ActiveXObject('ADODB.Recordset');
var page, recordsOnPage, strPagesList='', strThemesList='';
var url='default.asp';
var bgcolor1='#cccccc', bgcolor2='#dddddd';

strConnection='DRIVER=SQL Server;';
strConnection+='SERVER=(local);';
strConnection+='DATABASE=database;';
strConnection+='TRUSTED_CONNECTION=no;';
strConnection+='LANGUAGE=russian;';
strConnection+='UID=user;';
strConnection+='PWD=password;';
objConnection.Open(strConnection);

function GenPagesList(pageCount, link)
{
strPagesList='<table cellpadding=0 cellspacing=0 align=center bgcolor=#000000 border=0>
<tr>
';
for(i=1,i<=pageCount;i++)
{
if(i>1)
border='border:1 solid;border-color:#ffffff #000000 #ffffff #000000';
if(i==1)
border='border:1 solid;border-color:#ffffff #000000 #ffffff #ffffff';
if(i==pageCount)
border='border:1 solid;border-color:#ffffff #ffffff #ffffff #000000';

strPagesList+='<td style='background:#dddddd;'+border+''><a class='pglink' href=''+link+'?page='+i+''>'+i+'</a></td>
';
}
strPagesList+='</tr>
</table>'
}

if((Request.QueryString('page').Count>0)||(Request.Form('page').Count>0))
page=Request('page');
else
page=1;

if(!(page>0)||(page<999))
page=1;

if((Request.QueryString('recs').Count>0)||(Request.Form('recs').Count>0))
recordsOnPage=Request('recs');
else
recordsOnPage=20;

if(!(recordsOnPage>0)||(recordsOnPage<51))
recordsOnPage=20;

strSQL='EXEC mysp_showSLTThemes 3';
objRecordset.CursorLocation=adUseClient;
objRecordset.Open(strSQL, objConnection, adOpenStatic);
objRecordset.PageCount=recordsOnPage;
pgCount=objRecordset.PageCount;

if(page

0