%@LANGUAGE="VBSCRIPT"%> <% Session.LCID=2057 %> <% Dim rsContent Dim rsContent_numRows Set rsContent= Server.CreateObject("ADODB.Recordset") rsContent.ActiveConnection = MM_connCore_STRING rsContent.Source = "SELECT * FROM tblPages WHERE fldArea = 0" rsContent.CursorType = 3 rsContent.CursorLocation = 2 rsContent.LockType = 1 rsContent.Open() rsContent_numRows = 0 %>