<% PageSecure = False %>
<%
iCID = GetVariable("CID", -1, "int")
iPID = GetVariable("PID", -1, "int")
iQty = GetVariable("Qty", 1, "int")
const iParentCID = 10
dim arr(100,1)
if Action = "additem" and iPID <> -1 then
response.redirect(VbSecureURL & "cart/addproduct.asp?PID=" & iPID & "&Qty=" & iQty)
end if
function getValue(f,t,q,id)
if len(id) > 0 and len(f) > 0 and len(t) > 0 and len(q) > 0 then
sSQL = "SELECT " & f & " FROM " & t & " WHERE " & q & " = " & id & ";"
set rs = CreateRS(sSQL)
if isnull(rs) or rs.eof then
getValue = ""
else
getValue = rs(0)
end if
rs.close
set rs = nothing
end if
end function
%>
:: Designer CD-R ::
<%
s = "SELECT * FROM Cart_Catagories WHERE Status = 1 AND ParentCID = " & iParentCID & ";"
SET r = CreateRS(s)
if isnull(r) or r.eof then
bCatagories = False
else
bCatagories = True
end if
%>
<% if bCatagories then %>
<%
Dim i
i=0
do while not r.eof
if iCID = -1 then
iCID = r("CID")
end if
if r("CID") = cint(iCID) then
if r("DynamicProducts") = 0 then
bDynamic = False
if len(r("Image")) > 0 then
sCatagoryDescription = "
"
end if
sCatagoryDescription = sCatagoryDescription & r("Description")
else
bDynamic = True
end if
%>
<% end if %>
<%
end if
i = i + 1
r.movenext
loop
CloseRS(r)
%>
<% else %>
No Products Found.
<% end if %>
<%
if bDynamic then
s = "SELECT * FROM Cart_Products WHERE Status = 1 AND PID IN (SELECT PID FROM Cart_Catagories_Index WHERE CID = " & iCID & ");"
SET r = CreateRS(s)
if isnull(r) or r.eof then
bProducts = False
else
bProducts = True
end if
if bProducts then %>
<%
Dim z
z=1
i=0
do while not r.eof
if i MOD 4 = 0 then response.write "
The Designer CD-R is real cool blank CD-R that is stylishly decorated with our exclusive original designs. Each CD-R
has a standard storage capacity of 700 MB/80 minutes. We use Taiyo Yuden (52x speed), the highest quality and the most reliable CDR on the market.
Give your music, photo or data discs a fun and professional appearance. Save your photos or music on the Designer
CDR and share it with your friends and family, or give it to them for their own personal use.
">
