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