%@LANGUAGE="VBSCRIPT"%> <% set RsTopicsMenu = Server.CreateObject("ADODB.Recordset") RsTopicsMenu.ActiveConnection = MM_dbAccess1_STRING RsTopicsMenu.Source = "SELECT * FROM Q_eb_list_topics ORDER BY eb_group_description ASC" RsTopicsMenu.CursorType = 0 RsTopicsMenu.CursorLocation = 2 RsTopicsMenu.LockType = 3 RsTopicsMenu.Open() RsTopicsMenu_numRows = 0 %>
|
|