%@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 = " & Request.Querystring("fldArea") rsContent.CursorType = 0 rsContent.CursorLocation = 2 rsContent.LockType = 1 rsContent.Open() rsContent_numRows = 0 Dim PageId PageID = "page" %>