%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsWhite Dim rsWhite_numRows Set rsWhite = Server.CreateObject("ADODB.Recordset") rsWhite.ActiveConnection = MM_connWhite_STRING rsWhite.Source = "SELECT * FROM tblWhitePapers ORDER BY txtDate ASC" rsWhite.CursorType = 0 rsWhite.CursorLocation = 2 rsWhite.LockType = 1 rsWhite.Open() rsWhite_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 rsWhite_numRows = rsWhite_numRows + Repeat1__numRows %>
|
|||||||||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|