%@LANGUAGE="VBSCRIPT"%> <% Dim TWMailbag Dim TWMailbag_numRows Set TWMailbag = Server.CreateObject("ADODB.Recordset") TWMailbag.ActiveConnection = MM_TWCorrespond_STRING TWMailbag.Source = "select * FROM mailbag WHERE Status <> 'hold' AND PigeonHole = 'mailbag' ORDER BY ID DESC" TWMailbag.CursorType = 0 TWMailbag.CursorLocation = 2 TWMailbag.LockType = 1 TWMailbag.Open() TWMailbag_numRows = 0 %>