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