%@LANGUAGE="VBSCRIPT"%> <% Set objCart=new Cart %> <% Dim rsWorkshops Dim rsWorkshops_numRows Set rsWorkshops = Server.CreateObject("ADODB.Recordset") rsWorkshops.ActiveConnection = MM_connLogCabin_STRING rsWorkshops.Source = "SELECT * FROM workshops ORDER BY display_order ASC" rsWorkshops.CursorType = 0 rsWorkshops.CursorLocation = 2 rsWorkshops.LockType = 1 rsWorkshops.Open() rsWorkshops_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsWorkshops_numRows = rsWorkshops_numRows + Repeat1__numRows %>
![]() |
|