%@LANGUAGE="VBSCRIPT"%> <% on error resume next %> <% Dim rsCAT Dim rsCAT_numRows Set rsCAT = Server.CreateObject("ADODB.Recordset") rsCAT.ActiveConnection = MM_connGODRUGFREE_STRING rsCAT.Source = "SELECT * FROM tblcat ORDER BY sNAME ASC" rsCAT.CursorType = 0 rsCAT.CursorLocation = 2 rsCAT.LockType = 1 rsCAT.Open() rsCAT_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 rsCAT_numRows = rsCAT_numRows + HLooper1__numRows %>
![]() |
|||||||
![]() |
|||||||
![]() |
|||||||
|
|||||||
. All Rights Reserved. 2006-2008. GoDrugFree.org. |