<%@LANGUAGE="JAVASCRIPT"%>
<%
var Link_cmd = Server.CreateObject ("ADODB.Command");
Link_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
Link_cmd.CommandText = "SELECT remjimbr.tblLink.LinkID, remjimbr.tblLink.SiteName, remjimbr.tblLink.SiteURL, remjimbr.tblLink.LinkInfo, remjimbr.tblLink.DateExpires, remjimbr.tblArtist.ArtistName, remjimbr.tblArtistLink.Priority, remjimbr.tblLabel.LabelName, remjimbr.tblLabelLink.Priority, remjimbr.tblCountry.Country FROM remjimbr.tblLink LEFT OUTER JOIN remjimbr.tblArtistLink ON (remjimbr.tblArtistLink.LinkID = remjimbr.tblLink.LinkID) LEFT OUTER JOIN remjimbr.tblArtist ON (remjimbr.tblArtist.ArtistID = remjimbr.tblArtistLink.ArtistID) LEFT OUTER JOIN remjimbr.tblLabelLink ON (remjimbr.tblLabelLink.LinkID = remjimbr.tblLink.LinkID) LEFT OUTER JOIN remjimbr.tblLabel ON (remjimbr.tblLabel.LabelID = remjimbr.tblLabelLink.LabelID) JOIN remjimbr.tblCountry ON (remjimbr.tblCountry.CountryID = remjimbr.tblLink.CountryID) ORDER BY remjimbr.tblLink.SiteName";
Link_cmd.Prepared = true;
var Link = Link_cmd.Execute();
var Link_numRows = 0;
%>
<%
var ArtistLink_cmd = Server.CreateObject ("ADODB.Command");
ArtistLink_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
ArtistLink_cmd.CommandText = "SELECT remjimbr.tblLink.LinkID, remjimbr.tblLink.SiteName, remjimbr.tblLink.SiteURL, remjimbr.tblLink.LinkInfo, remjimbr.tblLink.DateExpires, remjimbr.tblArtist.ArtistName, remjimbr.tblArtistLink.Priority, remjimbr.tblCountry.Country FROM remjimbr.tblLink JOIN remjimbr.tblArtistLink ON (remjimbr.tblArtistLink.LinkID = remjimbr.tblLink.LinkID) JOIN remjimbr.tblArtist ON (remjimbr.tblArtist.ArtistID = remjimbr.tblArtistLink.ArtistID) JOIN remjimbr.tblCountry ON (remjimbr.tblCountry.CountryID = remjimbr.tblLink.CountryID) ORDER BY remjimbr.tblArtist.ArtistName, remjimbr.tblArtistLink.Priority";
ArtistLink_cmd.Prepared = true;
var ArtistLink = ArtistLink_cmd.Execute();
var ArtistLink_numRows = 0;
%>
<%
var LabelLink_cmd = Server.CreateObject ("ADODB.Command");
LabelLink_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
LabelLink_cmd.CommandText = "SELECT remjimbr.tblLink.LinkID, remjimbr.tblLink.SiteName, remjimbr.tblLink.SiteURL, remjimbr.tblLink.LinkInfo, remjimbr.tblLink.DateExpires, remjimbr.tblLabel.LabelName, remjimbr.tblLabelLink.Priority, remjimbr.tblCountry.Country, remjimbr.tblImage.ImageFileName FROM remjimbr.tblLink JOIN remjimbr.tblLabelLink ON (remjimbr.tblLabelLink.LinkID = remjimbr.tblLink.LinkID) JOIN remjimbr.tblLabel ON (remjimbr.tblLabel.LabelID = remjimbr.tblLabelLink.LabelID) JOIN remjimbr.tblCountry ON (remjimbr.tblCountry.CountryID = remjimbr.tblLink.CountryID) LEFT OUTER JOIN remjimbr.tblLabelImage ON (remjimbr.tblLabelImage.LabelID = remjimbr.tblLabel.LabelID) LEFT OUTER JOIN remjimbr.tblImage ON (remjimbr.tblImage.ImageID = remjimbr.tblLabelImage.ImageID) ORDER BY remjimbr.tblLabel.LabelName, remjimbr.tblLabelLink.Priority";
LabelLink_cmd.Prepared = true;
var LabelLink = LabelLink_cmd.Execute();
var LabelLink_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
ArtistLink_numRows += Repeat1__numRows;
%>
<%
var Repeat2__numRows = -1;
var Repeat2__index = 0;
LabelLink_numRows += Repeat2__numRows;
%>
<%
var Repeat3__numRows = -1;
var Repeat3__index = 0;
Link_numRows += Repeat3__numRows;
%>
dot dash - Links
<%
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%>
<% } %>
Links
Label Links
<% while ((Repeat2__numRows-- != 0) && (!LabelLink.EOF)) { %>
" width="45" border="0">