<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%> <% var RSNews = Server.CreateObject("ADODB.Recordset"); RSNews.ActiveConnection = MM_DBNomads_STRING; RSNews.Source = "SELECT * FROM QueryNewsFilteredForDisplay"; RSNews.CursorType = 0; RSNews.CursorLocation = 2; RSNews.LockType = 1; RSNews.Open(); var RSNews_numRows = 0; %> <% var RSAnnounces = Server.CreateObject("ADODB.Recordset"); RSAnnounces.ActiveConnection = MM_DBNomads_STRING; RSAnnounces.Source = "SELECT * FROM QueryAnnoucesFilteredForDisplay"; RSAnnounces.CursorType = 0; RSAnnounces.CursorLocation = 2; RSAnnounces.LockType = 1; RSAnnounces.Open(); var RSAnnounces_numRows = 0; %> <% var RSPages = Server.CreateObject("ADODB.Recordset"); RSPages.ActiveConnection = MM_DBNomads_STRING; RSPages.Source = "SELECT * FROM QueryPages"; RSPages.CursorType = 0; RSPages.CursorLocation = 2; RSPages.LockType = 1; RSPages.Open(); var RSPages_numRows = 0; %> <% var RSContacts = Server.CreateObject("ADODB.Recordset"); RSContacts.ActiveConnection = MM_DBNomads_STRING; RSContacts.Source = "SELECT * FROM QueryContactPageSorted"; RSContacts.CursorType = 0; RSContacts.CursorLocation = 2; RSContacts.LockType = 1; RSContacts.Open(); var RSContacts_numRows = 0; %> <% var Repeat2__numRows = 15; var Repeat2__index = 0; RSAnnounces_numRows += Repeat2__numRows; %> <% var Repeat3__numRows = 15; var Repeat3__index = 0; RSNews_numRows += Repeat3__numRows; %> <% var MM_paramName = ""; %> <% // *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters // create the list of parameters which should not be maintained var MM_removeList = "&index="; if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "="; var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone=""; // add the URL parameters to the MM_keepURL string for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) { var nextItem = "&" + items.item().toLowerCase() + "="; if (MM_removeList.indexOf(nextItem) == -1) { MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item())); } } // add the Form variables to the MM_keepForm string for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) { var nextItem = "&" + items.item().toLowerCase() + "="; if (MM_removeList.indexOf(nextItem) == -1) { MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item())); } } // create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL + MM_keepForm; if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1); if (MM_keepURL.length > 0) MM_keepURL = MM_keepURL.substring(1); if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1); %> Untitled Document