iskam da izveda 4ast ot tablica(tyrsene po nqkakyv parameter).problema e ,4e ima po mnogo zapisi i az iskam da gi izvejdam po 10 na stranica.Pomognete mi da go napravq.Postoqnno mi dava greshka,4e driver-a ne podyrja tezi svoistva(pagesize,pageabsolute,pagecount)

Решението е да се ползва собствено страниране.
Ето и алгоритъм за виждане на точно определена страница. Предполага се, че в PageN е номера на страницата /1..N/, а PageCount /1..N/ определя броя записи в страницата.

' предполагаме че имаме отворена база данни
DB.Open "connection string"


Sub ShowPage (PageN,PageCount)
Set RS=DB.Execute ("SELECT ala-bala") ' взимаме целия набор записи
On Error Resume Next
RS.Move (PageN-1)*PageCount ' отиваме на първия запис от страницата.
If Err.Number<>0 Then Exit Sub ' ако цопнем на несъществуваща страница - чао
For i=1 To PageCount ' визуализираме всеки запис от страницата
If RS.EOF Then Exit Sub ' ако няма вече записи - чао
RS.MoveNext ' взимаме следващия запис от страницата
Response.Write RS ("ala-bala") ' показваме го
Next i
End Sub

чети и дишай по-леко

Eto ti edno elegantno reshenie ako izpolzwash MS SQL Server za Database.

Съдържаниет е скрито
Влезте за да го видите

Съдържаниет е скрито
Влезте за да го видите

asp ima chudesni vgradeni funkcii za rabota s recordseti, vupreki che samia sql ne poddurja onova, koeto ima mysql - komandata limit. tuk ima samo TOP xxx.

eto i moeto predlojenie

<%

if isnumeric(request.querystring("page")) and request.querystring("page")<>"" then _
page=cdbl(request.querystring("page") else page=1
' tva ti e stranicata, predava se kato ?page=4 primerno


sql="select ..."
set rs=server.createobject("ADODB.Recordset")

rs.open sql, connection, 3
rs.pagesize=20 'primerno
if rs.eof then
'niama rezultati
else

if page<rs.pagecount then
rs.absolutepage=page
else
rs.absolutepage=rs.pagecount 'ili na 1
end if

end if

i=0
do while not rs.eof and i<rs.pagesize
..............looping trough code............
rs.movenext
i=i+1
loop

'stranichki
for i=1 to rs.pagecount
%><a href=?page=<%=i%>><%=i%></a> <%
next

%>

Good LUCK! :)

Редактирано от dzver на 21.04.02 23:07.

lichno az sym mnogo protiv
"on error resume next" - ne preporuchvam podoben tip scriptove, reshenia etc. kato posochenoto.

Ama choweka ti kazwa che ne moje da izpolzwa "pagesize" etc.

Съдържаниет е скрито
Влезте за да го видите

kakvo e "page" v izraza request.querystring("page")?

MyRs.Open sqlString, MyConn, adOpenStatic, adLockReadOnly, adCmdText

Ей ти типичен начин да отвориш рекордсет. Само за четене - промени си параметрите ако искаш друго. Но грешката ти я дава защото най-вероятно си забравил "<!-- #Include file="adovbs.inc" -->" ... Просто не си заредил константите.

Anywhere you go, always take a weather with you...

on error resume next
MyConn.Open connectString
on error goto 0
' If error found is adStateClosed, cease connection and redirect to error.asp
if MyConn.State=adStateClosed then
Set MyConn= Nothing
Session("EntryErr")="Cannot connect to database !"
Response.Redirect ("../error.asp")
end if

Ами тук ON ERROR е просто наложително :-)))
Всяко нещо е хубаво или лошо само според ПРИЛОЖЕНИЕТО си !

Anywhere you go, always take a weather with you...

Ами параметър - "http://clubs.dir.bg/?login.asp?Cat=ASP" - тук например request.querystring(""Cat") би имала стойност "ASP"

Anywhere you go, always take a weather with you...