%@LANGUAGE="VBSCRIPT"%> <% Dim ads Dim ads_numRows Set ads = Server.CreateObject("ADODB.Recordset") ads.ActiveConnection = MM_Ad_STRING ads.Source = "SELECT * FROM tblClassified ORDER BY Category ASC" ads.CursorType = 0 ads.CursorLocation = 2 ads.LockType = 1 ads.Open() ads_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ads_numRows = ads_numRows + Repeat1__numRows %>
![]() |
|
|
|
|
|||
| |
|
|
|
||||
|
|
|||||||
|
|||||||
|
|
|||||||