<%@ LANGUAGE="VBScript" %> <% ' Define data passed from other pages TitleLet = Replace(Request("TitleLet"), "'", "''") Nextpage = Request("NextPage") If TitleLet <> "" AND Nextpage <> "" Then ' Open recordset dynamically if on first page. If NextPage <= 1 Then NextPage = 1 OpenType = adOpenDynamic Else OpenType = adOpenStatic End If 'Set Connection = Server.CreateObject("ADODB.Connection") set RS=Server.CreateObject("ADODB.Recordset") RS.pagesize=50 'Connection.Open "DSN=bevrecscatalog" ' Define SQL RS.open "SELECT * FROM qryBylTitle WHERE title LIKE '" & replace(TitleLet,"'","''") & "%';", Connection, OpenType ' Only use if open static If OpenType = adOpenStatic Then RS.AbsolutePage=NextPage End If End If %> Listing for the letter "<% = Request("TitleLet") %>"
bevlogo3.gif (4964 bytes) 11612 South Western
Chicago, IL 60643
Phone 1.773.779.0066
Fax  1.773.779.2434

<% If TitleLet <> "" AND Nextpage <> "" Then %>45 Listings

Brand new "Reissues" are available on most 45rpm titles at $3.99 ($10 for Beatles Reissues) each (plus $2 s&h for First Class Mail or $5 for Priority Mail) per order. "Original Label" records are $4.00 and up, depending on condition and rarity (plus s&h). When you find a title please indicate "Reissue" or "Original Label" when adding the title to your shopping cart.

If you order "Original Label" records, a sales representative will contact you with pricing before shipment. Orders combining "Reissues" and "Original Label" records may be shipped in two shipments. If you don't want to receive multiple shipments please check the appropriate box on the order form. Click here for information about our online ordering security.

<% CurrentRecord = 0 Do While CheckRS(RS) and CurrentRecord < RS.PageSize %> <% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
Click to add to Shopping Cart

TITLE

ARTIST YEAR
by <% =RS("artist")%>">

" NAME="B1">

">
<%= RS("title") %> <%= RS("artist") %> <%= RS("year") %>
<% If CurrentRecord >= RS.PageSize Then %> &NextPage=<% = Request("NextPage") + 1 %>">

Go To Next Page

<% End If %> <% Else %>

Data Missing Please Go Back.

<% End If%>

mgm.gif (4389 bytes)
Return to 45's

<% rs.close set rs = nothing connection.close set connection = nothing %>