<% Option Explicit %> <% dim AlbumNo : AlbumNo = Request.querystring("AlbumNo") ClearSession %> Untitled Document <% DisplayHeader "Shop" DisplayNavMenu "Shop" %> <% Main %>
<% sub Main() dim rs, strSQL, recordcount strSQL = "SELECT Artists.ArtistNo, ArtistName, " & _ "Albums.AlbumNo, AlbumTitle, ListPrice, OurPrice, ImageURL_Medium, ImageURL_Large, Description, " & _ "TrackNo, TrackTitle, AudioSampleURL_WinMedia, AudioSampleURL_RealOne " & _ "FROM Artists, Albums, Tracks " & _ "WHERE Artists.ArtistNo=Albums.ArtistNo AND Albums.AlbumNo=Tracks.AlbumNo AND Albums.AlbumNo=" & AlbumNo set rs = OpenRecordset(strSQL) if rs.EOF then Response.write "

The album could not be found in the database.

" rs.close set rs = Nothing exit sub end if %> <%= rs("AlbumTitle") %> "><%= rs("ArtistName") %> Item #<%= rs("AlbumNo") %>   <% if rs("ImageURL_Large") <> "" then %> )">" border="0"> <% else %> "> <% end if %> List Price:<%= formatCurrency(rs("ListPrice")) %>
Our Price:<%= formatCurrency(rs("OurPrice")) %>
You Save:<%= formatCurrency(rs("ListPrice") - rs("OurPrice")) %>

Usually ships within 24 hours.

" src="images/buttons/add-to-cart.gif">

Description <%= rs("Description") %>
Audio Samples <% recordcount = 0 do while Not rs.EOF And Response.isClientConnected %> > <% recordcount = recordcount + 1 rs.movenext loop rs.close set rs = Nothing %>
Windows Media RealOne Player
<%= recordcount + 1 %>. <%= rs("TrackTitle") %> <%= displayAudioLink(rs("AudioSampleURL_WinMedia")) %> <%= displayAudioLink(rs("AudioSampleURL_RealOne")) %>
<% end sub %> <% function displayAudioLink(link) if link <> "" then displayAudioLink = "Play" end if end function %>