<% 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
%>
| |
|
| |
|
Product |
Description |
Price |
<%
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
%>
| <%=ItemName%> |
<%=ItemDesc%>
<% if ItemURL <> "" THEN %>
Further Information
<% end if %> |
|
<%If rsItems("HotPix")=1 Or rsItems("HotPix")=True Then %>
HOT PIX!
<%End If%>
|
<%=FORMATCURRENCY(ItemPrice)%>
|
|
<% rsItems.MoveNext
Wend
rsItems.Close
Set rsItems=Nothing
%>
|
| |
|
| |
|
| |
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
%>
|