<% If Request("ab")="" Then ab=0 Else ab = Request("ab") End If%> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "ae19_online" sql = "SELECT * from gaeste where gruppe='nms' order by datum desc,zeit desc" Set RS = Server.CreateObject("ADODB.RecordSet") RS.Open sql, Conn, 1,1 rc = RS.RecordCount If Request("von")>0 Then ab=rc-Request("von") End If if ab>10 then vor= ab-10 zuruck = ab+10 'Response.Write("ab:"&ab&" bis"& Request("bis")) %> <% %> Gästebuch

Gästebuch der
Niedersächsischen Mühlenstraße

<%if ab>0 then%> << vor <%end if %> neuer Eintrag <%if ab+10 zurück >> <%end if %>
<% if not RS.EOF then RS.Move(ab) for i=1 to 10 if not RS.EOF then %> <% RS.MoveNext end if Next RS.Close Conn.Close If rc>1 Then %>
<%=rc-(ab+i)+1%> <%=RS("Name")%>, <%=RS("Vorname")%>
<%=RS("Email")%>  		<%=RS("INFO")%> 
<% homepage=RS("HOMEPAGE") if instr(homepage,"http://")=0 and homepage>"" then homepage="http://"&homepage %> <%=homepage%>
<%if ab>0 then%> << vor <%end if %> neuer Eintrag <%if ab+10 zurück >> <%end if %>
<%end if %>