|
|
|
|
| |
<%
Session.LCID=1031
' --- Erstellen der Datenbankverbindung
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.Mappath("datenbank/gaestebuch11.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
' --- SQL-Statement erstellen
Dim SQL
SQL = "SELECT * FROM gaestebuch11 ORDER BY ID DESC"
' --- Definieren der Seitengröße (Anzahl Datensätze pro Seite)
Dim PageSize
PageSize = 10
' --- Initialisieren des Counters
Dim intCounter
intCounter = 1
' --- Einstellen der aktuellen Seite, weitere Prüfung
' --- erfolgt nach Öffnen des Recordsets
Dim AbsolutePage
AbsolutePage = Request("PN")
' --- Erstellen des Recordsets
Set objRS = Server.CreateObject("ADODB.Recordset")
' --- Zuweisen der Seitengröße (Anzahl Datensätze pro Seite)
' --- Diese Zuweisung muss vor dem Öffnen des Recordsets erfolgen.
objRS.PageSize = PageSize
objRS.CacheSize = PageSize
' --- Öffnen des Recordsets
objRS.Open SQL, objConn, 3, 3
' --- Prüfen, ob die angegebene Seitennummer verwendet werden kann
If AbsolutePage = "" Or Not IsNumeric(AbsolutePage) Or CInt(AbsolutePage) > CInt(objRS.PageCount) Then
AbsolutePage = 1
End if
' --- Zuweisen der aktuellen Seite. Diese Zuweisung
' --- muss nach dem Öffnen des Recordsets erfolgen
objRS.AbsolutePage = AbsolutePage
' --- x Datensätze anzeigen. Prüfung auf EOF (letzter Datensatz)
' --- und Anzahl der bisher ausgegebenen Datensätze (intCounter)
' --- muss erfolgen, da ansonsten zuviele Datensätze ausgegeben werden
Do While Not objRS.EOF And intCounter <= PageSize
' --- Ausgabe des aktuellen Datensatzes
%>
|
<% if not objRS("email")="" then %>
"><%=objRS("name")%>
<% else %>
<%=objRS("name")%>
<% end if %>
|
<%=objRS("datum")%>,
<%=objRS("uhrzeit")%>
|
 |
|
<%=objRS("eintrag")%>
|
|
|
<%
' --- Erhöhen des Zählers zum Ermitteln der bisher ausgegebenen Datensätze
intCounter = intCounter + 1
' --- Weiter zum nächsten Datensatz
objRS.MoveNext
Loop
%>
|
Seiten: <%
' --- Erstellen der Links auf die weiteren Seiten
For intPageCounter = 1 To objRS.PageCount
' --- Die aktuelle Seite wird nicht mehr verlinkt
If CInt(intPageCounter) = CInt(AbsolutePage) Then
Response.Write "" & intPageCounter & " "
Else
Response.Write "" & intPageCounter & " "
End if
Next
%>
|
|
