<%@ Language=VBScript %><% 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 %> <% 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")
<% if imagefound<>"no" then %> align="right" vspace="8" hspace="8" alt="<%=name%>"> <%end if%> <% if hideprice<>1 and hidecobutt<>1 then %> showcart.asp" name="form" ID="Form1"> <% 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 %>
<%=fixERR(errormessage)%>
<% if hidehead<>1 then %> <%=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%>
<%=optb%>
<%=optc%>
 Qty:  <% showbutton "Buy Now","","form" %>
<%=oosmess%>