Home | Armoring Division | News Updates   News Updates     <% mySql=("Select * from news where bad=1 order by news_date desc") Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.CursorLocation = 3 rsNews.Open mySql,conn,1,3 rsNews.PageSize = 15 if not(rsNews.EOF or rsNews.BOF) then rsNews.AbsolutePage = page for intRecord = 1 To rsNews.PageSize x = x + 1 news_date=rsNews("news_date") location=rsNews("location") title=rsNews("title") introtext=rsNews("introtext") newstype=rsNews("newstype") detail=rsNews("detail") newsday=rsNews("newsday") newsmonth=rsNews("newsmonth") newsyear=rsNews("newsyear") url=rsNews("url") image=rsNews("image") pdf=rsNews("pdf") %> <% rsNews.MoveNext If rsNews.EOF Then Exit For next end if %> <%=newsday%>.<%=Month(news_date)%>.<%=newsyear%> <%if newstype = 0 then%> "><%=title%> <%elseif newstype = 1 then%> <%=title%> <%elseif newstype = 2 then%> <%=title%> <%elseif newstype = 3 then%> <%=title%> <%end if%>     <%=getPaginationString(page, rsNews.RecordCount, rsNews.PageSize, 2, "news.asp?foo=bar")%>