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

The artist could not be found in the database.

" rs.close set rs = Nothing exit sub end if %> <%= rs("ArtistName") %>   <%= rs("Biography") %>
<% do while Not rs.EOF And Response.isClientConnected %> <% if rs("ImageURL_Small") <> "" then %> ">" border="0"> <% else %> "> <% end if %> " style="font-style: italic"><%= rs("AlbumTitle") %>
<%= rs("ArtistName") %>

List Price:<%= formatCurrency(rs("ListPrice")) %>
Our Price:<%= formatCurrency(rs("OurPrice")) %> " src="images/buttons/add-to-cart.gif">
<% rs.movenext loop rs.close set rs = Nothing end sub %>