<%@LANGUAGE="JAVASCRIPT"%>
<% var intLastArtist = 0; %>
<%
var Artist_cmd = Server.CreateObject ("ADODB.Command");
Artist_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
Artist_cmd.CommandText = "SELECT ArtistID, ArtistName FROM remjimbr.tblArtist WHERE (Active = 1 AND DotDash = 1) ORDER BY ArtistName";
Artist_cmd.Prepared = true;
var Artist = Artist_cmd.Execute();
var Artist_numRows = 0;
%>
<%
var ArtistOld_cmd = Server.CreateObject ("ADODB.Command");
ArtistOld_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
ArtistOld_cmd.CommandText = "SELECT ArtistID, ArtistName FROM remjimbr.tblArtist WHERE (Active = 0 AND DotDash = 1) ORDER BY ArtistName";
ArtistOld_cmd.Prepared = true;
var ArtistOld = ArtistOld_cmd.Execute();
var ArtistOld_numRows = 0;
%>
<%
var ArtistPriority_cmd = Server.CreateObject ("ADODB.Command");
ArtistPriority_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
ArtistPriority_cmd.CommandText = "SELECT remjimbr.tblArtistPriorityDD.Priority, remjimbr.tblArtistPriorityDD.ArtistID, remjimbr.tblArtist.ArtistName, remjimbr.tblArtist.Biography, remjimbr.tblArtist.Heading, remjimbr.tblArtistImage.Priority AS ImagePriority, remjimbr.tblImage.ImageFileName FROM remjimbr.tblArtistPriorityDD JOIN remjimbr.tblArtist ON (remjimbr.tblArtist.ArtistID = remjimbr.tblArtistPriorityDD.ArtistID) LEFT OUTER JOIN remjimbr.tblArtistImage ON (remjimbr.tblArtistImage.ArtistID = remjimbr.tblArtist.ArtistID) LEFT OUTER JOIN remjimbr.tblImage ON (remjimbr.tblImage.ImageID = remjimbr.tblArtistImage.ImageID) ORDER BY remjimbr.tblArtistPriorityDD.Priority, ImagePriority";
ArtistPriority_cmd.Prepared = true;
var ArtistPriority = ArtistPriority_cmd.Execute();
var ArtistPriority_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
Artist_numRows += Repeat1__numRows;
%>
<%
var Repeat2__numRows = -1;
var Repeat2__index = 0;
ArtistOld_numRows += Repeat2__numRows;
%>
<%
var Repeat3__numRows = -1;
var Repeat3__index = 0;
ArtistPriority_numRows += Repeat3__numRows;
%>
<%
var Repeat4__numRows = -1;
var Repeat4__index = 0;
var intLastArtist = 0;
%>
dot dash - Artists
">
<%
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%>
<% } %>
Artists
<% while ((Repeat3__numRows-- != 0) && (!ArtistPriority.EOF)) { %>
<% if (ArtistPriority.Fields.Item("ArtistID").Value != intLastArtist) {%>
" align="texttop" width="135" alt="<%=ArtistPriority.Fields.Item("ArtistName").Value%>" border="0" >
<% }
else { %>
" width="135" border="0" align="texttop">
<% } // end if (String(ArtistPriority.Fields.Item("ImageFileName").Value) != "null") %>