%@LANGUAGE="VBSCRIPT"%> <% Dim rsRobFox Dim rsRobFox_numRows Set rsRobFox = Server.CreateObject("ADODB.Recordset") rsRobFox.ActiveConnection = MM_ConnToffeeWeb_STRING rsRobFox.Source = "SELECT * FROM efcnews WHERE articletype = 'fox' ORDER BY datestamp DESC" rsRobFox.CursorType = 0 rsRobFox.CursorLocation = 2 rsRobFox.LockType = 1 rsRobFox.Open() rsRobFox_numRows = 0 %>