Untitled Document

<% ConnString = "3errres.com.vezos" set nameConn= Server.CreateObject("ADODB.Connection") nameConn.Open ConnString SQL = "SELECT ind, name, mail, site, mes, fecha FROM Libro " SQL = SQL & "ORDER BY Libro.ind DESC" set rs= Server.CreateObject("ADODB.Recordset") rs.CursorLocation = 3 rs.CursorType = 3 rs.open SQL, nameConn rs.pagesize = 5 maxpages=cint(rs.pagecount) maxrecs=cint(rs.pagesize) mypage=request("pagina") If mypage="" then mypage=1 startpos=1 else startpos = ( mypage * maxrecs ) - maxrecs + 1 end if If Not rs.EOF Then rs.absolutepage=mypage End if i=0 mypage=cint(mypage) if maypage= maxpages then endpos=rs.recordcount else endpos= maxrecs * mypage end if numrecs = rs.recordcount If numrecs >0 then if mypage > 1 then prevpage = mypage -1 End If NextPage = Mypage +1 if NextPage <= maxpages Then end if else end if %> Untitled Document

<% if Numrecs > 0 then do until rs.Eof or i>= maxrecs %> <% rs.MoveNext i = i + 1 loop End If %>


	<%Response.Write (rs.Fields ("name"))%>. <%Response.Write (rs.Fields ("mail"))%>. [<%Response.Write (rs.Fields ("fecha"))%>]
	<%Response.Write (rs.Fields ("mes"))%>


	Dtest
	test


	Dtest
	test

<% if Numrecs > 0 then NextPage = mypage + 1 If NextPage <= maxpages Then %>

<% End if if mypage > 1 then prevpage = mypage -1 %>

<% end if else End if %>

<% rs.Close set rs = nothing nameConn.Close Set nameConn = Nothing %>