%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
var companyrs__MMColParam = "1";
if (String(Request.QueryString("1")) != "undefined" &&
String(Request.QueryString("1")) != "") {
companyrs__MMColParam = String(Request.QueryString("1"));
}
%>
<%
var companyrs = Server.CreateObject("ADODB.Recordset");
companyrs.ActiveConnection = MM_company_STRING;
companyrs.Source = "SELECT newsid, newsdate, kind, topic FROM news WHERE kind = '"+ companyrs__MMColParam.replace(/'/g, "''") + "' ORDER BY newsid DESC";
companyrs.CursorType = 0;
companyrs.CursorLocation = 2;
companyrs.LockType = 1;
companyrs.Open();
var companyrs_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
companyrs_numRows += Repeat1__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);
%>