<%@LANGUAGE="JAVASCRIPT" LCID=2057%>
<% var intLastNewsItem = 0; %>
<%
var NewsPriority_cmd = Server.CreateObject ("ADODB.Command");
NewsPriority_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
NewsPriority_cmd.CommandText = "SELECT remjimbr.tblNewsPriorityDD.Priority, remjimbr.tblNewsPriorityDD.NewsID, remjimbr.tblNews.NewsDate, remjimbr.tblNews.Headline, remjimbr.tblNews.DateExpires, remjimbr.tblNewsImage.Priority AS ImagePriority, remjimbr.tblImage.ImageFileName, remjimbr.tblNews.NewsDetail FROM remjimbr.tblNewsPriorityDD JOIN remjimbr.tblNews ON (remjimbr.tblNews.NewsID = remjimbr.tblNewsPriorityDD.NewsID) LEFT OUTER JOIN remjimbr.tblNewsImage ON (remjimbr.tblNewsImage.NewsID = remjimbr.tblNews.NewsID) LEFT OUTER JOIN remjimbr.tblImage ON (remjimbr.tblImage.ImageID = remjimbr.tblNewsImage.ImageID) ORDER BY remjimbr.tblNewsPriorityDD.Priority, ImagePriority";
NewsPriority_cmd.Prepared = true;
var NewsPriority = NewsPriority_cmd.Execute();
var NewsPriority_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
NewsPriority_numRows += Repeat1__numRows;
%>
dot dash - News
<%
var AdvertRS_cmd = Server.CreateObject ("ADODB.Command");
AdvertRS_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
AdvertRS_cmd.CommandText = "SELECT * FROM tblFlashAd WHERE Active = 1";
AdvertRS_cmd.Prepared = true;
var AdvertRS = AdvertRS_cmd.Execute();
var AdvertRS_numRows = 0;
// Select a random row number
AdvertRS.MoveFirst();
var i = 1;
while (!AdvertRS.EOF) {
AdvertRS.MoveNext();
i++
}
var rndMax = i;
var rndNumber;
rndNumber = Math.floor(rndMax * Math.random());
rndNumber = rndNumber + 1; //Add one to prevent it from going to zero, and to make it count the last record too
if (rndMax > 0) {
AdvertRS.MoveFirst();
var i = 1;
while (i < rndNumber) {
AdvertRS.MoveNext();
i++
}
}
%>
<%
if (rndMax > 0) {
var flashDisplay = "";
%>
<%=flashDisplay%>
<% } %>
News
<% while ((Repeat1__numRows-- != 0) && (!NewsPriority.EOF)) { %>
<% if (NewsPriority.Fields.Item("NewsID").Value != intLastNewsItem) {%>
" align="texttop" width="135" alt="<%=(NewsPriority.Fields.Item("Headline").Value)%>" border="0">
<% }
else { %>
<% } // end if (String(NewsPriority.Fields.Item("ImageFileName").Value) != "null") %>