%@LANGUAGE="VBSCRIPT"%> <% Dim rsRed Dim rsRed_numRows Set rsRed = Server.CreateObject("ADODB.Recordset") rsRed.ActiveConnection = MM_connRedcoats_STRING rsRed.Source = "SELECT * FROM Pictures ORDER BY p_created DESC" rsRed.CursorType = 0 rsRed.CursorLocation = 2 rsRed.LockType = 1 rsRed.Open() rsRed_numRows = 0 %>