%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %> <% Dim rstEventCategory Dim rstEventCategory_numRows Set rstEventCategory = Server.CreateObject("ADODB.Recordset") rstEventCategory.ActiveConnection = MM_dohertysgym_STRING rstEventCategory.Source = "SELECT event_cat_ID, event_cat_description FROM event_categories;" rstEventCategory.CursorType = 0 rstEventCategory.CursorLocation = 2 rstEventCategory.LockType = 1 rstEventCategory.Open() Dim event_cat_ID %>
|