So in der Art mache ich das. Die Datei ADOVBS.INC musste mit einbinden
<%
If Request("K") <> "K" THEN
sName = Session("sName")
CurrentPage= Session("CurrentPage")
ELSE
Session("sName")=""
Session("CurrentPage")=""
sName = "Select * FROM"
sName = sName & " Tabelle"
sName = sName & " Where"
sName = sName & " Feld1 = " & Request("Feld1")
sName = sName & " Order by Feld1"
Session("sName") = sName
CurrentPage = 1
END IF
query = Request.QueryString("MOVE")
IF query = "next" THEN
Session("CurrentPage")=Session("CurrentPage")+1
END IF
IF query = "prev" THEN
Session("CurrentPage")=Session("CurrentPage")-1
END IF
IF query <> "" AND NOT query = "prev" AND NOT query = "next" THEN
Session("CurrentPage") = CINT(query)
END IF
IF Session("CurrentPage")="" THEN
Session("CurrentPage")= 1
END IF
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Datenbank"
Set rsName=Server.CreateObject("ADODB.RecordSet")
rsName.Open sName , conn, adOpenStatic
If rsName.EOF Or rsName.BOF Then
%>
<!-- Fehlermeldung einf�gen -->
<%
Else
howmanyrecs = rsName.recordcount
rsName.PageSize = 5
rsName.AbsolutePage = Session("CurrentPage")
DIM zeile
zeile = 0
While Not rsName.EOF And zeile < rsName.PageSize
%>
<!-- Recordsets einf�gen -->
<%
rsName.MoveNext
zeile = zeile + 1
WEND
%>
<!-- Navigation einf�gen -->
<div class="rahmen" style="width:400">
<table border="0" width="400" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><font size="1" face="arial" class="font11">
<% If Session("CurrentPage") > 1 Then %>
[ <a href="seite.asp?MOVE=prev">zur�ck</a> ]
<% End If %>
<% If rsName.PageCount > 1 Then
For i = 1 To rsName.PageCount
If Session("CurrentPage") <> i Then
%>
<a href="seite.asp?MOVE=<%=i%>"> <%=i%> </a>
<% Else %>
<b><%=i%></b>
<% End If
Next
End If
%>
<% If Session("CurrentPage") < rsName.PageCount Then %>
[ <a href="seite.asp?MOVE=next">weiter</a> ]
<% End If %>
</font></td>
</tr>
</table>
</div>
<%
End If
rsName.Close
set rsName=nothing
Conn.Close
%>
-----Urspr�ngliche Nachricht-----
Von: Thomas Goerldt [mailto:[EMAIL PROTECTED]]
Gesendet: Donnerstag, 2. Mai 2002 15:42
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] ASP-basics
Hallo,
ich m�chte die Eintr�ge eines Recordsets "splitten", d.h. es sollen jeweils
auf einer Seite nur 10 "Treffer" angezeigt werden und ein Link der die
n�chsten 10 zeigt usw.
Gibt es jemanden, der den Nerv hat, mir das zu erkl�ren?
W�re nett, vielen Dank im vorraus
thomas.
P.S. Habe bisher sowas mit UltraDev gemacht, m�chte das aber auch von Hand
k�nnen...
--
werkstudio. werbung und design GmbH
Remscheider Str. 11a | 40215 Duesseldorf
Tel. 0211 | 31 16 52-14 Fax 0211 | 31 16 52-29
http://www.werkstudio.de | mailto:[EMAIL PROTECTED]
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
