%@LANGUAGE="VBSCRIPT"%> <% Dim rsAccredited Dim rsAccredited_numRows Set rsAccredited = Server.CreateObject("ADODB.Recordset") rsAccredited.ActiveConnection = MM_connAccredited_STRING rsAccredited.Source = "SELECT Course_Manufacturer FROM qsixtrain.Q6_Course_Manufacturers ORDER BY Course_Manufacturer ASC" rsAccredited.CursorType = 0 rsAccredited.CursorLocation = 2 rsAccredited.LockType = 1 rsAccredited.Open() rsAccredited_numRows = 0 %> <% Dim rsGeneric Dim rsGeneric_numRows Set rsGeneric = Server.CreateObject("ADODB.Recordset") rsGeneric.ActiveConnection = MM_connAccredited_STRING rsGeneric.Source = "SELECT Course_Technology FROM qsixtrain.Q6_Course_Technology ORDER BY Course_Technology ASC" rsGeneric.CursorType = 0 rsGeneric.CursorLocation = 2 rsGeneric.LockType = 1 rsGeneric.Open() rsGeneric_numRows = 0 %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_connAccredited_STRING rsEvents.Source = "SELECT * FROM qsixtrain.Q6_Events ORDER BY Start_Date ASC" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 1 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsGeneric_numRows = rsGeneric_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 5 Repeat3__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat3__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsAccredited_numRows = rsAccredited_numRows + Repeat1__numRows %>
© 2007 - Q6 Training Ltd. All Rights Reserved. Designed by Spiders Parlour.
<% rsAccredited.Close() Set rsAccredited = Nothing %> <% rsGeneric.Close() Set rsGeneric = Nothing %> <% rsEvents.Close() Set rsEvents = Nothing %>