<%@ Language=VBScript %><% '************************************************************ '* * '* By Downloading or using this software, you agree to * '* the terms and conditions as stated in the Software * '* License Agreement. An updated copy of this agreement * '* can be seen at http://www.pagedowntech.com/terms. * '* * '* NOTICE: We do not recommend changing the code below * '* as it may interfere with future updates/upgrades. * '* * '* PageDown Technology, LLC., Copyright 2004. * '* www.pagedowntech.com * '* * '************************************************************ itemid=request("itemid") error=request("error") if error="y" then errormessage="We encountered an error while trying to add this item to your cart, please try again.
" end if %> [an error occurred while processing this directive] [an error occurred while processing this directive]<% if itemid="" or itemid=NULL or not isnumeric(itemid) then Response.Redirect("features.asp") end if 'Open database get Item details. set rs=opendb("SELECT * FROM items WHERE id=" & itemid) if rs.EOF then Response.Redirect("features.asp") end if name=rs("name") imgresize=rs("imgresize") if imgresize="ON" then width="width=150" else width="" end if price=rs("price") saleprice=rs("saleprice") onsale=rs("onsale") 'Determine price to show. if onsale="Yes" then theprice=showCurr(saleprice) else theprice=showCurr(price) end if itemno=rs("itemno") hideprice=rs("hideprice") if hideprice="ON" then hideprice=1 else hideprice=0 end if hidehead=rs("hidehead") if hidehead="ON" then hidehead=1 else hidehead=0 end if catid=rs("catid") addqty=rs("addqty") if addqty>1 then else addqty=1 end if largeimage=rs("largeimage") 'If no picture. if largeimage="" or largeimage=NULL then imagefound="no" end if description=rs("description") 'Get Option data. opta=rs("opta") optaen=rs("optaen") optb=rs("optb") optben=rs("optben") optc=rs("optc") optcen=rs("optcen") 'Determine if item is out of stock. hidecobutt=0 showoos="OFF" if rs("qty") [an error occurred while processing this directive]

<% getHeading "", "hdcat", "" %> <%=showlevels(catid, shopurl & "shop/category.asp")%> <% 'Open database get sub categories. set rs=opendb("SELECT * FROM category WHERE subof=" & catid & " ORDER BY name") if not rs.eof then %> Also see: <% rs.movefirst while not rs.eof subcatname=rs("name") subcatid=rs("id") %> category.asp?catid=<%=subcatid%>"> <%=subcatname%> <% rs.movenext if not rs.eof then response.write (" | ") end if wend end if rs.close set rs=nothing %> <%=catdesc%> <% getHeading "", "hdnews", "inthenews" %>

<% if hideprice<>1 and hidecobutt<>1 then %> showcart.asp" name="form"> <% if optaen="ON" then %> <% end if %> <% if optben="ON" then %> <% end if %> <% if optcen="ON" then %> <% end if %> <% end if %> <% if showoos="ON" then %> <% end if %> <% getHeading "", "hditem", "" %> <%=fixERR(errormessage)%> <% if hidehead<>1 then %> <% if imagefound<>"no" then %> align="right" vspace="8" hspace="8" alt="<%=name%>"> <%end if%>Name: <%=name%> Item#: <%=itemno%> <% if hideprice<>1 then %> Price/ea: <% if onsale="Yes" then %> <% =showCurr(price)%> <% end if response.write(theprice) %> <% end if %> <% end if %><%=description%> <%=opta%> <% 'Get option values from database. set rs=opendb("SELECT * FROM itemopt WHERE optnum=1 AND itemid=" & itemid & " ORDER BY name") if not rs.eof then rs.movefirst while not rs.eof optname=rs("name") pricecalc=rs("pricecalc") optprice=rs("price") optaid=rs("id") if pricecalc="1" then optname=optname & " (Add " & showCurr(optprice) & ")" end if if pricecalc="2" then optname=optname & " (Subtract " & showCurr(optprice) & ")" end if %> <%=optname%> <% rs.movenext wend end if rs.close set rs=nothing %> <%=optb%> <% 'Get option values from database. set rs=opendb("SELECT * FROM itemopt WHERE optnum=2 AND itemid=" & itemid & " ORDER BY name") if not rs.eof then rs.movefirst while not rs.eof optname=rs("name") pricecalc=rs("pricecalc") optprice=rs("price") if pricecalc="1" then optname=optname & " (Add " & showCurr(optprice) & ")" end if if pricecalc="2" then optname=optname & " (Subtract " & showCurr(optprice) & ")" end if %> "><%=optname%> <% rs.movenext wend end if rs.close set rs=nothing %> <%=optc%> <% 'Get option values from database. set rs=opendb("SELECT * FROM itemopt WHERE optnum=3 AND itemid=" & itemid & " ORDER BY name") if not rs.eof then rs.movefirst while not rs.eof optname=rs("name") pricecalc=rs("pricecalc") optprice=rs("price") if pricecalc="1" then optname=optname & " (Add " & showCurr(optprice) & ")" end if if pricecalc="2" then optname=optname & " (Subtract " & showCurr(optprice) & ")" end if %> "><%=optname%> <% rs.movenext wend end if rs.close set rs=nothing %> <% showbutton "Buy Now","","form" %>  Qty:  <%=oosmess%> To see other items in this category, category.asp?catid=<%=catid%>">click here!

[an error occurred while processing this directive]