%@LANGUAGE="VBSCRIPT"%> <% Dim rsFansComment Dim rsFansComment_numRows Set rsFansComment = Server.CreateObject("ADODB.Recordset") rsFansComment.ActiveConnection = MM_ConnToffeeWeb_STRING rsFansComment.Source = "SELECT * FROM efcnews WHERE articletype = 'fan' AND season = '05-06' ORDER BY datestamp DESC" rsFansComment.CursorType = 0 rsFansComment.CursorLocation = 2 rsFansComment.LockType = 1 rsFansComment.Open() rsFansComment_numRows = 0 %>