<% id = Request.QueryString("id") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("base/dados.mdb") sqlstmt = "SELECT * FROM informacoes WHERE ID = "& Request.QueryString("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("titulo")%>
 
<%=rs("conteudo")%>
 
 
<% rs.MoveNext End If y = y + 1000 Next %>