<% ' Define variables dim recordsonpage, requestrecords, offset, allrecords, hiddenrecords, showrecords, lastrecord, recordcounter, pagelist, pagelistcounter ' DB connection dim Conn Set Conn = createobject("ADODB.Connection") Conn.open = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql95.secureserver.net;PORT=3306;DATABASE=illweb;USER=illweb;PASSWORD='webill';OPTION=0;" 'DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql95.secureserver.net;PORT=3306;DATABASE=illweb;USER=illweb;PASSWORD='your password';OPTION=0; ' records per page recordsonpage = 1 ' count all records allrecords = 0 set rs = conn.Execute("SELECT * FROM illnewsdb") do until rs.EOF allrecords = allrecords + 1 rs.movenext loop ' if offset is zero then the first page will be loaded offset = request.querystring("offset") if offset = 0 OR offset = "" then requestrecords = 0 else requestrecords = requestrecords + offset end if ' opens database set rs = conn.Execute("SELECT * FROM illnewsdb ORDER BY Add_Time Desc") ' reads first records (offset) without showing them (can't find another solution!) hiddenrecords = requestrecords do until hiddenrecords = 0 OR rs.EOF hiddenrecords = hiddenrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %>

<% ' prints records in the table showrecords = recordsonpage recordcounter = requestrecords do until showrecords = 0 OR rs.EOF recordcounter = recordcounter + 1 %>

Aug 18th

<% = FormatDateTime(rs("Add_Time"),2) %>

<% showrecords = showrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %>

<% = rs("News_Subj") %>

~<% = rs("Add_User") %>

<% = rs("News_Body") %>

<% if requestrecords <> 0 then %> [Prev Page]<% else %>[Prev Page]<% end if %>

<% if lastrecord <> 1 then %> [Next Page] <% else %>[Next Page]<% end if %>

<% ' Closes connection rs.close Conn.close %>