<%@LANGUAGE="VBSCRIPT"%> <% WE_SelectedYear = Year(Date()) WE_SelectedMonth = Month(Date()) WE_SelectedDay = Day(Date()) %> <% Dim rsEvents Dim rsEvents_numRows Set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_connEvents_STRING rsEvents.Source = "SELECT * FROM events WHERE status ORDER BY StartYear, StartMonth, StartDay" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 1 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> CADEK International
 
 
Welcome to CADEK International, the home of...
 

Thank you for registering.

Return to our home page
Box 5111, Helderberg, 7135 Tel:+27 21 8554750 | Fax: +27 21 8554745