BCTV Noon News
<% query="select category, length, datelisted, thumbnail, lowspeedurl1, highspeedurl1, relatedlinkstext1,relatedlinkstext2,relatedlinkstext3,relatedlinks1,relatedlinks2,relatedlinks3,description from tblVideos order by datelisted desc" results.open query, Conn, adOpenstatic, adLockReadonly, adCmdtext totalRecords = results.recordCount %> <% if not(results.EOF) then results.moveFirst results.pageSize = numPerPage totalpages = results.pageCount results.AbsolutePage = page 'absoluteposition pointing at the current record nextRecoNum = results.Absoluteposition lastRecoOnPage = nextRecoNum + results.pageSize - 1 if totalRecords <> -1 and totalRecords < lastRecoOnPage then lastRecoOnPage= totalRecords end if %> <% end if %><% do while not results.eof and nextRecoNum <= lastRecoOnPage %>
" width="137" height="103"> | <%=formatdatetime(results("datelisted"),vblongdate)%> <%=results("description")%> Watch Video: <%=results("length")%> See also: "><% =results("relatedlinkstext1") %> |
<% count = count + 1 results.movenext nextRecoNum = nextRecoNum + 1 loop %>