<% id = Request.QueryString("id") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("base/dados.mdb") sqlstmt = "SELECT * FROM curiosidades Order by ID" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp TotalRecs = rs.recordcount x = 0 y = 1000 For x = 1 to y If rs.eof then Exit For Else %>

<% rs.MoveNext End If y = y + 1000 Next %>