| proPARTNER | proHOME |
|gästebuch|proLINKS|proPARTNER|proMAIL|
<% richtung = Request.QueryString("Move") IF richtung <> "" AND NOT richtung = "Prev" AND NOT richtung = "Next" THEN Session("CurrentPage") = CINT(richtung) END IF ' Beim ersten Mal Startwert der Seitenzähler auf 1 setzen IF Session("CurrentPage")="" THEN Session("CurrentPage")= 1 END IF CONST adOpenStatic = 3 SET nameConn = Server.CreateObject("ADODB.Connection") nameConn.Open "DSN=gast" SQLstmt = "SELECT Name, Url, Bild, Beschreibung FROM propartner ORDER BY ID DESC" SET RS = Server.CreateObject("ADODB.RecordSet") RS.Open sqlstmt, nameConn, adOpenStatic RS.PageSize = 5 RS.AbsolutePage = Session("CurrentPage") %> <% DIM i i = 0 WHILE NOT RS.EOF AND i < RS.PageSize %>
" class="linkbase" target="_blank"><% =RS("Name") %>

" class="linkbase" target="_blank">" width="133" height="75" border="0" alt="<% =RS("Beschreibung") %>">
<% RS.MoveNext i = i + 1 WEND %>
<% FOR i = 1 TO RS.PageCount IF Session("CurrentPage") <> i THEN ' Alle Seiten bekommen einen direkten Link %>  <% =i %>  <% ELSE ' außer die aktuelle Seite, da steht nur die Zahl. %> Seite <% = i %>  <% END IF NEXT %>
<% RS.Close nameConn.Close %>