<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "tyrone" Set rsInfo = Server.CreateObject("ADODB.Recordset") sql="SELECT TOP 15 upc.upc_id, upc.upc_title, upc.upc_release_date, artist.artist_name, upc.artist_id, upc.upc_blurb "&_ "FROM upc INNER JOIN "&_ "artist ON upc.artist_id = artist.artist_id "&_ "WHERE (upc.upc_id = N'"& request("upc") &"');" rsInfo.Open sql,Connect,3,2 %> Palm Pictures : [EMI Music Canada]

 < back
<% Set fs = Server.CreateObject("Scripting.FileSystemObject") If fs.FileExists("w:\websites\artists\catalogue_search\images\covers\150\"& rsInfo("upc_id") &".jpg") Then %> .jpg" border="1" width="150"> <% Else %>
<% End if %> 		<%= rsInfo("artist_name") %>
<%= rsInfo("upc_title") %>
Released: <%= MonthName(month(rsInfo("upc_release_date"))) %> <%= day(rsInfo("upc_release_date")) %>, <%= year(rsInfo("upc_release_date")) %>

<%= rsInfo("upc_blurb") %>

 <% Set rsBuylink = Server.CreateObject("ADODB.Recordset") sql = "SELECT buylinks_vendor, buylinks_url FROM buylinks WHERE (buylinks_upc = N'"& request("upc") &"')" rsBuylink.Open sql,Connect,3,2 If not rsBuylink.EOF then %>
palm pictures palm pictures palm pictures
Purchase this CD at:
 palm pictures
<% Do while not rsBuylink.EOF %> " target="new"><%= rsBuylink("buylinks_vendor") %> |  <% rsBuylink.MoveNext Loop %>
palm pictures
<% End If %> <% Set rsTracks = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM upc_tracks WHERE (upc_id = N'"& left(""& request("upc") &"",10) &"') ORDER BY track_number;" rsTracks.Open sql,Connect,3,2 'DISPLAY THE TRACK LISTING IF THERE IS ONE If not rsTracks.EOF then %>
<% for counter = 1 to rsTracks.RecordCount %> <% If rsTracks("track_stream") <> "" then %> <% End If %> <% rsTracks.MoveNext Next %>
<%= counter %>. <% If rsTracks("track_stream") <> "" then %> "><%= rsTracks("track_name") %> <% Else %> <%= rsTracks("track_name") %> <% End If %>


<% END IF rsTracks.Close %>
palm pictures palm pictures palm pictures
Sounds & Images:
  • Something In My Eye
    Audio:  Low | Hi       Video:  Low | Hi
  • The Second Track
    Audio:  Low | Hi       Video:  Low | Hi
palm pictures
<% Set rsTour = Server.CreateObject("ADODB.Recordset") sql = "SELECT ontour.ontour_artist_id, ontour.ontour_date, venue.venue_name, venue.venue_city, venue.venue_province "&_ "FROM ontour INNER JOIN "&_ "venue ON ontour.ontour_venue_id = venue.venue_id "&_ "WHERE (ontour.ontour_artist_id = "& rsInfo("artist_id") &");" rsTour.Open sql,Connect,3,2 'DISPLAY THE TRACK LISTING IF THERE IS ONE If not rsTour.EOF then %>
<% do while not rsTour.EOF %> <% rsTour.MoveNext Loop %>
City Venue Date
<%= rsTour("venue_city") %>, <%= rsTour("venue_province") %> <%= rsTour("venue_name") %> <%= FormatDateTime(rsTour("ontour_date"),1) %>


<% End If %> < back

<% rsBuylink.close rsTour.close rsInfo.close Connect.close %>