<% End If %>
<%If C_BNRBKGRND = "" Then%><%= C_STORENAME %><%Else%><%End If%>
 
Product Detail
Check Out
<% ' ------------------------------------------- ' Empty Search Results ---------------------- ' ------------------------------------------- If rsProdDetail.EOF Then closeObj(rsProdDetail) closeObj(cnn) txtOutput = "" _ & "" _ & "" _ & "" _ & "" _ & "" _ & "
Product " & txtProdId &" was not found in the current product inventory

" _ & "
" response.write txtOutput Else %>
" action="<%= C_HomePath %>addproduct.asp" onSubmit="this.QUANTITY.quantityBox=true;return sfCheck(this);"> ">
<% If Trim(rsProdDetail("prodLink")) <> "" Then %><% End If %><% If Trim(rsProdDetail("prodImageLargePath")) <> "" Then %>"><% ElseIf Trim(rsProdDetail("prodImageSmallPath")) <> "" Then %>" align="top"><% End If %><% If Trim(rsProdDetail("prodLink")) <> "" Then response.write "" %><%= C_ProductID %>: <%= rsProdDetail("prodId") %>    <%if Application("AppName")="StoreFrontAE" then %> <%= C_CategoryNameS %>: <%=getfullpath(rsProdDetail("CatHierarchy"),0) %>
<%else%> <%= C_CategoryNameS %>: <%=rsProdDetail("catName") %>
<%end if%> <%= rsProdDetail("prodName") %>
<%= C_Description %>: <%If rsProdDetail("prodDescription") <> "" Then %><% rsProdDetail.MoveFirst %><%= rsProdDetail("prodDescription") %><%Else%><%= rsProdDetail("prodShortDescription") %><%End If%>
<%= C_Price %>:  <% If iConverion = 1 Then If rsProdDetail("prodSaleIsActive") = "1" Then Response.Write "
" Response.Write "" & C_SPrice & ":
" Response.Write "" & C_YSave & ":
" Else Response.Write "" End If Else If rsProdDetail("prodSaleIsActive") = "1" Then Response.Write "" & FormatCurrency(rsProdDetail("prodPrice")) & "
" Response.Write "" & C_SPrice & ": " & FormatCurrency(rsProdDetail("prodSalePrice")) & "
" Response.Write "" & C_YSave & ": " & FormatCurrency(CDbl(rsProdDetail("prodPrice"))-CDbl(rsProdDetail("prodSalePrice"))) & "
" Else Response.Write FormatCurrency(rsProdDetail("prodPrice")) End If End If SearchResults_GetProductInventory rsProdDetail("prodid") 'SFAE SearchResults_ShowMTPricesLink rsProdDetail("prodid") 'SFAE %>
<% ' ----------------------------- ' ATTRIBUTE OUTPUT ::: BEGIN -- ' ----------------------------- If rsProdDetail("prodAttrNum") > 0 Then Dim attrName, attrNamePrev, icounter, strOut, iAttrNum, strAttrPrice strOut = "" icounter = 0 iAttrNum = 0 Function iAttrCounter(iAttrNum) iAttrNum = iAttrNum + 1 iAttrCounter = iAttrNum End Function Do While Not rsProdAttributes.EOF attrName = rsProdAttributes("attrName") strAttrPrice = "" If Trim(attrName) <> Trim(attrNamePrev) Then If iCounter > 0 Then strOut = strOut & "" End If strOut = strOut & "" Response.Write strOut End If ' ------------------------ ' ATTRIBUTE OUTPUT ::: END ' ------------------------ %>
" & attrName & "

Quantity:
<%SearchResults_GetGiftWrap rsProdDetail("prodid") 'SFAE%>
<% If iSaveCartActive = 1 Then%> <% End if If iEmailActive = 1 Then %> Email a Friend <% End If %>