<%@ LANGUAGE="VBSCRIPT" %> <% strDBPath = Server.MapPath("../database/collectorsshop-webstore1.mdb") 'response.write strdbpath 'response.end ' Create an ADO Connection to connect to the collectorsshop database. Set cnn = Server.CreateObject("ADODB.Connection") ' The Collectorsshop database: cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" 'this is a read only record set Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adopenforwardonly rs.Locktype = adlockreadonly 'rs.cursortype = adopenkeyset 'rs.locktype = adlockoptimistic %> Collectorsshop.com New Release Pre-Order Catalog
Collector's Shop

Search
Search Help?


New Releases
Main Catalog
DVDs Videos
Links

Main Page .. View Cart .. E-mail .. Contact Us
DVD/Video Catalog
<% strSQL = "SELECT itemid,Artist, Album, Description, Price, Format" _ & " FROM items " _ & " WHERE (DVD =-1)" _ & " ORDER BY Format,Artist;" 'response.write strSQL 'response.end 'Open our recordset rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly, adCmdText if rs.eof then response.write "No Records Found-Please try again." response.end End If %> <% ' Get a count of the number of records and pages iPageCurrent = rs.AbsolutePage iRecordCount = rs.RecordCount iPageCount = rs.PageCount ' Show a quick status line letting people know where they are: %> <%= iRecordCount %> Records Found. <% 'formatSave = "" do while not rs.eof %> <% orderbutton = "" & _ "Order
" 'if rs("format") <> formatsave then ' response.write "" & _ ' "" & vbcrlf 'end if %> <% rs.movenext loop %>
Artist Title Format Price
 
*** Format: " & rs("format") & " ***
<%= rs.Fields("Artist").Value %> <%= rs.Fields("Album").Value %> <%= rs.Fields("Format").Value %> $<%= rs.Fields("Price").Value %>.00
<%=orderbutton%>
<%= rs.Fields("Description").Value %>
up
Top