<%@LANGUAGE=VBScript%> <% ' 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 ' count all records allrecords = 0 set rs = conn.Execute("SELECT * FROM illnewsdb") do until rs.EOF allrecords = allrecords + 1 rs.movenext loop recordsonpage = allrecords ' 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") Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("en-ushttp://www.ill-it.com") Response.Write(vbNewLine) Response.Write("Official Rss Feed for Ill-it.com") Response.Write(vbNewLine) Response.Write(vbNewLine) ' 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 dim pos,pos2, news,newslink,descrip news = lcase(rs("News_Body")) pos = InStr(news,lcase("http")) if len(rs("News_Body")) < 300 then descrip = rs("News_Body") else descrip = Mid(rs("News_Body"),1,300) & "..." end if if pos > 0 then newslink = Mid(news,pos,Len(news)- pos) pos2 = InStr(newslink,lcase("""")) newslink = Mid(newslink,1,pos2-1) newslink = Replace(newslink,"&","&") end if Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write(rs("News_Subj")) Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write(newslink) Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) Response.Write("") Response.Write(vbNewLine) %> <% 'rs("News_Body") %> <% 'FormatDateTime(rs("Add_Time"),2) %> <% 'rs("News_Subj") %> <% 'rs("Add_User") %> <% showrecords = showrecords - 1 rs.movenext if rs.EOF then lastrecord = 1 end if loop %> <% Response.Write("") Response.Write("") ' Closes connection rs.close Conn.close %>