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