<% C = Request.QueryString("c") IF C = "" THEN C = 1 ELSE C = CInt(C) END IF SET getGb = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM gb ORDER BY ID DESC" getGb.Open SQL, adoCon, 3, 3 getGb.PageSize = 10 IF NOT getGb.EOF = TRUE THEN getGb.AbsolutePage = C Nav = "

" IF NOT C = 1 THEN cBack = C - 1 Nav = Nav & "" Nav = Nav & "" Nav = Nav & "<" Nav = Nav & " - " END IF ' 3 vor aktuelle Position v4 = C - 4 IF NOT v4 < 1 THEN Nav = Nav & "... - " END IF v3 = C - 3 IF NOT v3 < 1 THEN Nav = Nav & "" Nav = Nav & "" Nav = Nav & v3 Nav = Nav & " - " END IF v2 = C - 2 IF NOT v2 < 1 THEN Nav = Nav & "" Nav = Nav & "" Nav = Nav & v2 Nav = Nav & " - " END IF v1 = C - 1 IF NOT v1 < 1 THEN Nav = Nav & "" Nav = Nav & "" Nav = Nav & v1 Nav = Nav & " - " END IF 'Aktuelle Position Nav = Nav & C n1 = C + 1 IF NOT n1 > getGb.PageCount THEN Nav = Nav & " - " Nav = Nav & "" Nav = Nav & "" Nav = Nav & n1 Nav = Nav & "" END IF n2 = C + 2 IF NOT n2 > getGb.PageCount THEN Nav = Nav & " - " Nav = Nav & "" Nav = Nav & "" Nav = Nav & n2 Nav = Nav & "" END IF n3 = C + 3 IF NOT n3 > getGb.PageCount THEN Nav = Nav & " - " Nav = Nav & "" Nav = Nav & "" Nav = Nav & n3 Nav = Nav & "" END IF n4 = C + 4 IF NOT n4 > getGb.PageCount THEN Nav = Nav & " - ..." END IF IF C < getGb.PageCount THEN cNext = C + 1 Nav = Nav & " - " Nav = Nav & "" Nav = Nav & "" Nav = Nav & ">" Nav = Nav & "" END IF Nav = Nav & "

" Nav = Nav & "" Nav = Nav & "Erste Seite" Nav = Nav & "" Nav = Nav & " - " Nav = Nav & "" Nav = Nav & "Letzte Seite" Nav = Nav & "" Nav = Nav & "

" DO UNTIL getGb.EOF OR EntryNum = 10 EntryNum = EntryNum + 1 Nam = getGb("Name") Ort = getGb("Herkunft") IF Ort = "" THEN Ort = "Unbekannt" END IF Datum = FormatDateTime(getGb("Date"), vbShortDate) Zeit = FormatDateTime(getGb("Date"), vbShortTime) IF Zeit = "00:00" THEN Zeit = "" END IF Http = getGb("Homepage") IF NOT Http = "X" THEN Http = "" & Http & "" ELSE Http = "keine" END IF Memo = getGb("Entry") RMemo = getGB("Kommentar") %>

<%=Nam%> aus <%=Ort%> schrieb am <%=Datum%> um <%=Zeit%>:

<%=Memo%>

<% IF NOT RMemo = "X" THEN %>

<%=RMemo%>

<% END IF %>

<%=Http%>

<% getGb.MoveNext LOOP getGB.Close SET getGB = nothing Response.Write(Nav) ELSE %>

Es wurden keine Einträge gefunden.

<% END IF %>