<%@ Language=VBScript %> <% set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open session("dbConn_ConnectionString") set rsPromo= Server.CreateObject("ADODB.Recordset") sql3 = "select * from DrumProducts order by ProductType, Spot" rsPromo.open sql3,dbconn,3,3 idx = 1 set conn=nothing %> Chapel Thunder Shopping Cart
 
 
Purchasing is easy! 
 
Step 1

1) Enter quantity
2) Proof order 
3) Adjust your email application to accept mail from Chapel Thunder
 
 
Be sure to click on each of the titles to access additional information about the product!
 
 
 
<% if(not rsPromo.EOF) then idx = 1 While not rsPromo.EOF %> <% curProductTypeName=LTrim(RTrim(rsPromo("ProductType"))) if(prevProductTypeName<>curProductTypeName) then a = "" prevProductTypeName=curProductTypeName response.write a&b&c&d&e&f&g&h&j&k&l else a = "" response.write a&b&c&d&e&f&g&h&j end if idx = idx + 1 rsPromo.MoveNext Wend end if %>
Name Price Quantity
" b = curProductTypeName c = "
" _ & "" f = LTrim(RTrim(RSPromo("Name"))) g = "" h = FormatCurrency(RSPromo("Price"),2) j = "
" _ & "" d = LTrim(RTrim(RSPromo("Name"))) e = "" f = FormatCurrency(RSPromo("Price"),2) g = "
Promotion Code: