Sorry-- Spambots destroyed this page. Drop me a line at my email-- sam@samcaldwell.com <% s = request.querystring("s") if len(s)<1 then s = 0 s=s*10 set db = Server.CreateObject("ADODB.Connection") connect="PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\vhosts\samcaldwell.com\httpdocs\llewdlacmas\samcald.mdb;" ' "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("../llewdlacmas/samcald.mdb") ***changed to newer driver db.Open connect sql = "select count(id) as alleEintraege from guestbook" set rs = db.Execute(sql) alleEintraege = int(rs("alleEintraege")) nummer = alleEintraege - (s) %> <%for t = 0 to fix((alleEintraege-1)/10)%> <%if t=(s/10) then%> <%end if%> <%=t+1%> <%if t=(s/10) then%> <%end if%> <%next%> <% sql = "select name, mail, homepage, mitteilung, erstellung, id from guestbook order by id desc" set rs = db.Execute(sql) while not rs.eof count = count +1 if count>s and count<=(s+10) then name = rs("name") mail = rs("mail") homepage = rs("homepage") if len(mail)>1 then mail = "" & mail & "" end if if len(homepage)>1 then if left(homepage,7)<>"http://" then homepage = "http://" & homepage homepage = "" & homepage & "" end if %> ');"><%=nummer%> <%if len(mail)>1 then%> <% end if if len(homepage)>1 then %> <%end if%> ');">. <%=rs("erstellung")%> Name <%=name%> Homepage <%=homepage%> <%=formatierung(rs("mitteilung"))%> <% nummer = nummer -1 end if rs.movenext wend db.Close set db=Nothing set rs=Nothing %>