<!-- 

Fix these variables

<%
Dim ad__advsrch
ad__advsrch = "%"
If (Request.QueryString("advsrch")   <> "") Then 
  ad__advsrch = Request.QueryString("advsrch")  
End If
%>
<%
Dim ad__chCompany
ad__chCompany = "%"
If (Request.QueryString("chCompany")   <> "") Then 
  ad__chCompany = Request.QueryString("chCompany")  
End If
%>
<%
Dim ad__chArtist
ad__chArtist = "%"
If (Request.QueryString("chArtist")   <> "") Then 
  ad__chArtist = Request.QueryString("chArtist")  
End If
%>
<%
Dim ad__chRecordingTitle
ad__chRecordingTitle = "%"
If (Request.QueryString("chRecordingTitle")   <> "") Then 
  ad__chRecordingTitle = Request.QueryString("chRecordingTitle")  
End If
%>
<%
Dim ad__chCampaign
ad__chCampaign = "%"
If (Request.QueryString("chCampaign")    <> "") Then 
  ad__chCampaign = Request.QueryString("chCampaign")   
End If
%>
<%
Dim ad__chYear
ad__chYear = "%"
If (Request.QueryString("chYear")   <> "") Then 
  ad__chYear = Request.QueryString("chYear")  
End If
%>
<%
Dim ad
Dim ad_numRows

Set ad = Server.CreateObject("ADODB.Recordset")
ad.ActiveConnection = MM_main_STRING
ad.Source = "SELECT *  FROM qry_RecordingArtist  WHERE ('" + Replace(ad__chCompany, "'", "''") + "' LIKE 'yes' AND Company LIKE '" + Replace(ad__advsrch, "'", "''") + "%')  OR ('" + Replace(ad__chArtist, "'", "''") + "' LIKE 'yes' AND Artist LIKE '%" + Replace(ad__advsrch, "'", "''") + "%') OR ('" + Replace(ad__chRecordingTitle, "'", "''") + "' LIKE 'yes' AND RecordingTitle LIKE '%" + Replace(ad__advsrch, "'", "''") + "%') OR ('" + Replace(ad__chCampaign, "'", "''") + "' LIKE 'yes' AND Campaign LIKE '" + Replace(ad__advsrch, "'", "''") + "%') OR ('" + Replace(ad__chYear, "'", "''") + "' LIKE 'yes' AND YearReleased LIKE '" + Replace(ad__advsrch, "'", "''") + "')  ORDER BY YearReleased DESC"
ad.CursorType = 0
ad.CursorLocation = 2
ad.LockType = 1
ad.Open()

ad_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
ad_numRows = ad_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim ad_total
Dim ad_first
Dim ad_last

' set the record count
ad_total = ad.RecordCount

' set the number of rows displayed on this page
If (ad_numRows < 0) Then
  ad_numRows = ad_total
Elseif (ad_numRows = 0) Then
  ad_numRows = 1
End If

' set the first and last displayed record
ad_first = 1
ad_last  = ad_first + ad_numRows - 1

' if we have the correct record count, check the other stats
If (ad_total <> -1) Then
  If (ad_first > ad_total) Then
    ad_first = ad_total
  End If
  If (ad_last > ad_total) Then
    ad_last = ad_total
  End If
  If (ad_numRows > ad_total) Then
    ad_numRows = ad_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (ad_total = -1) Then

  ' count the total records by iterating through the recordset
  ad_total=0
  While (Not ad.EOF)
    ad_total = ad_total + 1
    ad.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (ad.CursorType > 0) Then
    ad.MoveFirst
  Else
    ad.Requery
  End If

  ' set the number of rows displayed on this page
  If (ad_numRows < 0 Or ad_numRows > ad_total) Then
    ad_numRows = ad_total
  End If

  ' set the first and last displayed record
  ad_first = 1
  ad_last = ad_first + ad_numRows - 1
  
  If (ad_first > ad_total) Then
    ad_first = ad_total
  End If
  If (ad_last > ad_total) Then
    ad_last = ad_total
  End If

End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = ad
MM_rsCount   = ad_total
MM_size      = ad_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
ad_first = MM_offset + 1
ad_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (ad_first > MM_rsCount) Then
    ad_first = MM_rsCount
  End If
  If (ad_last > MM_rsCount) Then
    ad_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%> -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Commercial Breaks and Beats | Results</title>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" href="includes/global.css" />
<script async src="https://www.googletagmanager.com/gtag/js?id=UA-161626998-1"></script>
<script>
  window.dataLayer = window.dataLayer || [];
  function gtag(){dataLayer.push(arguments);}
  gtag('js', new Date());

  gtag('config', 'UA-161626998-1');
</script>
<link rel="icon" href="favicon.png" sizes="32x32">
</head>
<body>
<div class="hd">
  <table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td><form action="results.php" method="get" name="search" id="search">
          <table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td id="tv"><a href="index_original.php"><img src="img/tv.gif" alt="Take me home!!" width="130" height="100" border="0" /></a></td>
              <td id="txt"><img src="img/hd.gif" alt="Commercial Breaks and Beats" width="383" height="49" /></td>
              <td id="srch"><img src="img/quicksearch.gif" alt="Quick Search" width="49" height="17" align="absbottom" />&nbsp;
                <input name="srch" type="text" title="Enter your search keyword and press Enter" id="srch" size="15" />
              </td>
            </tr>
            <tr>
              <td height="1" colspan="4" valign="top" bgcolor="#C2C2C2" class="td1"></td>
            </tr>
          </table>
        </form></td>
      <td class="rm"><img src="img/t.gif" width="6" alt=""/></td>
    </tr>
  </table>
</div><table width="742" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td class="td16"></td>
        </tr>
        <tr>
          <td width="140" valign="top"><table width="140" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="10">&nbsp;</td>
    <td width="130"><img src="img/hd/searchtools.gif" alt="Search Tools" width="93" height="19" /><br />
      <br />
      <a href="search.php" title="Make an in-depth search of the CBAB database"> Advanced Search</a><br />
      <a href="art.php" title="Browse the artists in the CBAB database">Artist A-Z</a><br />
      <a href="comp.php" title="Browse the company names in the CBAB database">Company A-Z</a><br />
      <a href="title.php" title="Browse the song titles in the CBAB database">Song Title A-Z</a><br />
      <a href="date.php" title="Browse the entries in chronological order (most recent first)">Chronological</a><br />
      <br />
      <img src="img/menu_perf.gif" alt="" width="110" height="1" /><br />
      <img src="img/hd/moreinfo.gif" alt="More Info" width="68" height="19" /><br />
      <br />
      
      <!-- <a href="/search.asp" title="See the top 15 frequently searched-for words">The Charts</a> <br />  --> 
      <a href="news.php" title="See all of the CBAB news">Latest News</a><br />
      <a href="reso.php" title="Useful information from around the web">Further Reading</a><br />
      <a href="feat.php" title="View our Feature Archive">Feature Archive </a><br />
      <a href="faq.php" title="Our most Frequently Asked Questions">FAQ</a><br />
      <br />
      <img src="img/menu_perf.gif" alt="" width="110" height="1" /><br />
      <img src="img/hd/getinvolved.gif" alt="Get Involved" width="88" height="19" /><br />
      <br />
      <a href="link.php" title="How to link to CBAB">Link To Us</a> <br />
      <a href="http://www.commercialbreaksandbeats.org/forum/" title="Get involved through our Message Board" onClick="javascript:urchinTracker ('/outgoing/menuforumlink');" target="_blank">Message Board</a> <br />
      <a href="mailto:editor@commercialbreaksandbeats.org" title="Send us an email">Say Hello</a> <br />
      <br>
      
      <!-- <a href="/suggest.asp" title="Submit an advert song for inclusion in the database"><span class="deadlink">Suggest An Entry</span></a>  --></td>
  </tr>
</table>
</td>
          <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="155" height="19"><img src="img/hd/searchresults.gif" alt="" width="168" height="19" /></td>
                <td valign="bottom"></td>
              </tr>
            </table>
            <!-- If no results -->
                        <br />
            <table width="590" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="138"><div align="left"><i><b>Company</b></i></div></td>
                <td width="5">&nbsp;</td>
                <td width="97"><i><b>Year</b></i></td>
                <td width="5">&nbsp;</td>
                <td width="175"><i><b>Artist and Song Title</b></i></td>
                <td width="155"><em><strong>Buy Online </strong></em></td>
              </tr>
                            <tr valign="top">
                <td height="8" colspan="6"><img src="img/t.gif" alt="" width="590" height="8" /></td>
              </tr>
              <tr valign="top">
                <td colspan="6" class="hp td1"></td>
              </tr>
              <tr valign="top">
                <td height="8" colspan="6"><img src="img/t.gif" alt="" width="590" height="8" /></td>
              </tr>
              <tr valign="top">
                <td width="138" height="21"><a href="adv_res.php?srch=Strongbow&amp;chCompany=yes">Strongbow</a><br />
                  <i>Arrows</i></td>
                <td>&nbsp;</td>
                <td valign="top">1999</td>
                <td valign="middle">&nbsp;</td>
                <td valign="top"><a href="adv_res.php?srch=Johann Sebastien Bach&amp;chArtist=yes">Johann Sebastien Bach</a>&nbsp;-&nbsp;Tocata and Fugue&nbsp;&nbsp;</td>
                <td width="156"><!-- <%
		if ad.Fields.Item("AmazonLink").Value = "" or isnull(ad.Fields.Item("AmazonLink").Value) then
		%>

        <%

		else

		%> -->
                  <a href="http://www.amazon.co.uk/exec/obidos/ASIN//commerciabre-21/ref=nosim" onclick="javascript:urchinTracker ('/outgoing/advresamazonlogo');" target="_blank"><img src="img/amaz.gif" alt="Amazon" width="63" height="15" vspace="2" align="top" /></a>
                  <!--        <%
		
		end if
		
		%>
&nbsp;&nbsp;
    <%
		
		if ad.Fields.Item("AmazonLink").Value = "" or isnull(ad.Fields.Item("AmazonLink").Value) then
		
		%>
    <%
		
		else
		
		%>
    <%=(ad.Fields.Item("iTunesLink").Value)%>
    <%
		
		end if
		
		%> --></td>
              </tr>
                          </table>
            <br />
            <!--- Pagination -->
            Page
            1            of
            1            <em>(
            2            results total)</em>.<br />
                                    <br />
            <br />
            <br />
            <!-- End of pagination -->
            <!-- Google Adsense placement -->
            <br />
            <br />
            <script type="text/javascript"><!--
  amazon_ad_tag = "commerciabre-21";  amazon_ad_width = "468";  amazon_ad_height = "60";  amazon_color_border = "EDEDED";  amazon_ad_logo = "hide";  amazon_ad_link_target = "new";  amazon_ad_price = "retail";//--></script>
            <script type="text/javascript" src="http://www.assoc-amazon.co.uk/s/ads.js"></script>
                        <!-- Amazon iFrame Ad placement --></td>
          <td width="10" valign="top"></td>
        </tr>
      </table></td>
    <td class="rm"><img src="img/t.gif" alt="" width="6" height="1" /></td>
  </tr>
</table>
<table width="746" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="16"><img src="img/lt_foot_corn.gif" alt="" width="16" height="16" /></td>
          <td class="fs"><img src="img/t.gif" alt="" height="16" /></td>
          <td width="19"><img src="img/rt_foot_corn.gif" alt="" width="19" height="16" /></td>
        </tr>
      </table></td>
  </tr>
</table><br><script type="text/javascript" src="http://www.assoc-amazon.co.uk/s/link-enhancer?tag=commerciabre-21"></script>
<noscript>
<img src="http://www.assoc-amazon.co.uk/s/noscript?tag=commerciabre-21" alt="" />
</noscript>
</body>
</html>