<%@LANGUAGE="JAVASCRIPT"%>
<% var intLastRelease = 0;
var varArtistID = "0";
if(String(Request.QueryString("ArtistID")) != "undefined") {
varArtistID = Request.QueryString("ArtistID");
} %>
<%
var Release_cmd = Server.CreateObject ("ADODB.Command");
Release_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
Release_cmd.CommandText = "SELECT remjimbr.tblRelease.ReleaseID, remjimbr.tblRelease.ReleaseTitle, remjimbr.tblRelease.ArtistID, remjimbr.tblArtist.ArtistName, remjimbr.tblFormat.FormatType FROM remjimbr.tblRelease JOIN remjimbr.tblArtist ON (remjimbr.tblArtist.ArtistID = remjimbr.tblRelease.ArtistID) JOIN remjimbr.tblFormat ON (remjimbr.tblFormat.FormatID = remjimbr.tblRelease.FormatID) WHERE (remjimbr.tblRelease.Active = 1 AND remjimbr.tblRelease.DotDash = 1) ORDER BY remjimbr.tblArtist.ArtistName, remjimbr.tblRelease.ReleaseTitle";
Release_cmd.Prepared = true;
var Release = Release_cmd.Execute();
var Release_numRows = 0;
%>
<%
var ReleasePriority_cmd = Server.CreateObject ("ADODB.Command");
ReleasePriority_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
ReleasePriority_cmd.CommandText = "SELECT remjimbr.tblReleasePriorityDD.Priority, remjimbr.tblReleasePriorityDD.ReleaseID, remjimbr.tblRelease.ReleaseTitle, remjimbr.tblRelease.CatalogueNumber, remjimbr.tblRelease.ImageFileName, remjimbr.tblRelease.Notes, remjimbr.tblArtist.ArtistName, remjimbr.tblFormat.FormatType FROM remjimbr.tblReleasePriorityDD JOIN remjimbr.tblRelease ON (remjimbr.tblRelease.ReleaseID = remjimbr.tblReleasePriorityDD.ReleaseID) JOIN remjimbr.tblArtist ON (remjimbr.tblArtist.ArtistID = remjimbr.tblRelease.ArtistID) JOIN remjimbr.tblFormat ON (remjimbr.tblFormat.FormatID = remjimbr.tblRelease.FormatID) ORDER BY remjimbr.tblReleasePriorityDD.Priority";
ReleasePriority_cmd.Prepared = true;
var ReleasePriority = ReleasePriority_cmd.Execute();
var ReleasePriority_numRows = 0;
%>
<%
var Artist_cmd = Server.CreateObject ("ADODB.Command");
Artist_cmd.ActiveConnection = MM_connRemoteControlRecords_STRING;
Artist_cmd.CommandText = "SELECT ArtistID, ArtistName, Active 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 Repeat1__numRows = -1;
var Repeat1__index = 0;
Release_numRows += Repeat1__numRows;
%>
<%
var Repeat2__numRows = -1;
var Repeat2__index = 0;
ReleasePriority_numRows += Repeat2__numRows;
%>
<%
var Repeat3__numRows = -1;
var Repeat3__index = 0;
%>
<%
var Repeat4__numRows = -1;
var Repeat4__index = 0;
Artist_numRows += Repeat4__numRows;
%>
<%
var Repeat5__numRows = -1;
var Repeat5__index = 0;
ArtistOld_numRows += Repeat5__numRows;
%>
dot dash - Current Releases
">
<%
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%>
<% } %>
Current Releases
<% while ((Repeat2__numRows-- != 0) && (!ReleasePriority.EOF)) { %>
<% if (ReleasePriority.Fields.Item("ReleaseID").Value != intLastRelease) {%>
" align="texttop" width="135" alt="<%=(ReleasePriority.Fields.Item("ArtistName").Value)%> - <%=(ReleasePriority.Fields.Item("ReleaseTitle").Value)%>" border="0">
<% }
else { %>
<% } // end if (String(ReleasePriority.Fields.Item("ImageFileName").Value) != "null") %>