<% Response.Buffer=True %> Custom Speech USA - Product Price Sheet - We teach computers how to listen

csusatop.gif (4377 bytes)

<% Dim strCategory, strTitle, strHeader, strFooter, aHeaders(11,1), iI, iCount strCategory = Request.QueryString("CAT") 'Print out the title. Select Case strCategory Case "1CD" strTitle="" Case "2CC" strTitle="" Case "3AC" strTitle="" Case "4CM" strTitle="" Case "5MB" strTitle="" Case "6PB" strTitle="" Case "7SM" strTitle="" Case "8SS" strTitle="" Case "9SR" strTitle="" Case "ASU" strTitle="" Case "BCB" strTitle="" Case "EMS" strTitle="" End Select %>
 
<%=strTitle%> 
  <% If Request.QueryString("VIEW")="DOWNLOAD" Then strSQL = "SELECT ItemPrice, DownloadPrice, ItemName, ItemDesc,ItemSKU " & _ "DisplayOrder, HotPix, HotPixPrice,ItemURL, tblCategories.CategoryID AS Category " & _ "FROM tblItems " & _ "LEFT JOIN tblCategories ON tblItems.CategoryID=tblCategories.ID " & _ "WHERE (ItemActive = 1) AND (OrderDownload = 1) AND tblCategories.CategoryID='" & strCategory & _ "' ORDER BY DisplayOrder" set rsItems = server.CreateObject("ADODB.RECORDSET") rsItems.open strSQL, conn Else strSQL = "SELECT ItemPrice, ItemName, ItemDesc,ItemSKU, " & _ "DisplayOrder, HotPix, HotPixPrice,ItemURL, tblCategories.CategoryID AS Category " & _ "FROM tblItems " & _ "LEFT JOIN tblCategories ON tblItems.CategoryID=tblCategories.ID " & _ "WHERE (ItemActive = 1) AND (OrderShip = 1) AND tblCategories.CategoryID='" & strCategory & _ "' ORDER BY DisplayOrder" set rsItems = server.CreateObject("ADODB.RECORDSET") rsItems.open strSQL, conn End If While Not rsItems.EOF ItemName = rsItems("ItemName") ItemDesc = rsItems("ItemDesc") ItemURL = rsItems("ItemURL") if isnull(ItemURL) then ItemURL = "" end if If rsItems("HotPix")=1 Or rsItems("HotPix")=True Then ItemPrice=rsItems("HotPixPrice") Else If Request.QueryString("VIEW")="DOWNLOAD" Then ItemPrice = rsItems("DownloadPrice") Else ItemPrice = rsItems("ItemPrice") End If End If %> <% rsItems.MoveNext Wend rsItems.Close Set rsItems=Nothing %>
Product Description Price
<%=ItemName%>  <%=ItemDesc%> <% if ItemURL <> "" THEN %>
Further Information <% end if %> 
<%If rsItems("HotPix")=1 Or rsItems("HotPix")=True Then %> HOT PIX!  <%End If%> <%=FORMATCURRENCY(ItemPrice)%>
   
 
  Price, terms, specifications, and availability are subject to change without notice.  Custom Speech USA, Inc. trademarks are indicated.   Other marks are the property of their respective owners.  Click here for Online Privacy Policy.
<% Conn.Close Set Conn=Nothing %>

 

<% response.flush %>