| <!--#include file="dhtmlGetRows.class.asp"--> <% 'Create and populate a Recordset Dim objRS, objConn, strSQL Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=MyDSN" strSQL = "SELECT TOP 25 ViewCount, Description " & _ "FROM tblFAQ ORDER BY ViewCount DESC" Set objRS = objConn.Execute(strSQL) 'Create an instance of the dhtmlGetRows class Dim objPagedResults Set objPagedResults = new dhtmlGetRows objPagedResults.THString = "<th>Views</th><th>FAQ Question</th>" Response.Write objPagedResults.GenerateHTML(objRS) 'Clean up... Set objPagedResults = Nothing objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> |