<%@LANGUAGE="VBSCRIPT"%> <% set promenu = Server.CreateObject("ADODB.Recordset") promenu.ActiveConnection = MM_saipu_STRING promenu.Source = "SELECT * FROM pro_menu ORDER BY px DESC" promenu.CursorType = 0 promenu.CursorLocation = 2 promenu.LockType = 3 promenu.Open() promenu_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 promenu_numRows = promenu_numRows + Repeat1__numRows %> <% promenu.Close() %>