<% ':: Everest E-Commerce Advanced Edition ':: Copyright 1999 - 2005 iCode, Inc. All rights reserved. ':: Template: Aquarius/renstore %> <%IF not rsItems.Eof THEN sItemCode = rsItems("ItemCode") sItemName = rsItems("DESCRIPTION") END IF %> <%=sWebSiteName%> - <%=Server.HtmlEncode(sPageTitle)%> <% Function search_FormatString(strName) Dim m_Name, m_Temp m_Name = UCase(Mid(strName,1,1)) & LCase(Mid(strName,2)) m_Temp = 0 While m_Temp <> -1 m_Temp = inStr(m_Temp+1,m_Name," ") If m_Temp > 0 Then m_Name = Mid(m_Name,1,m_Temp) & UCase(Mid(m_Name,m_Temp+1,1)) & Mid(m_Name,m_Temp+2) Else m_Temp = -1 End If Wend m_Name=Mid(m_Name,1,12) &"..." search_FormatString = m_Name End Function '*** End Function %>
Product Profile-<%=sItemName%>
<%If sCategoryEnabled = "T" Then%> <%Else%> <%End if%> <%If trim(sWeight) <> "" and sWeight > 0 then%> <%end if If ConvertToBool(rsShoppingPreferences("SHOWBRAND")) and trim(sBrandDescript) <> "" Then If sBrandWebActive = "T" Then sBrandName= "" & sBrandDescript & "" Else sBrandName = "" & sBrandDescript & "" End if%> <% End If If ConvertToBool(rsShoppingPreferences("SHOWMANU")) And trim(sManuDescript) <> "" Then If sManuWebActive = "T" Then sManufacturerName = "" & sManuDescript & "" Else sManufacturerName = "" & sManuDescript & "" End if%> <% End if %> <%If ConvertToBool(rsShoppingPreferences("SHOWSTOCK")) Then If (sStock <> "") then %> <% End If End If%> <%If ConvertToBool(rsShoppingPreferences("SHOWMODEL")) Then If trim(sModel)<> "" then%> <%end if%> <%End If%> <%If ConvertToBool(rsShoppingPreferences("SHOWCSTFLD")) Then Set rsCstmFlds = objStoreFront.GetCustomFieldsForItem(sConnectionString,sCartId,sIc,sEqCode) DO while not rsCstmFlds.Eof If rsCstmFlds("DESCRIPT") <> "" Then sDescript = rsCstmflds("descript") If inStr(1,rsCstmFlds("NAME"),"CUSTDATE") > 0 Then sDescript = FormatDateTime(sDescript,1) end if %> <% End If rsCstmFlds.Movenext Loop End If%> <%public sub DisplayItemRelations() If sPrevGCODE = "" Or sPrevGCODE <> rsTracking("GROUP_NAME") Then If sPrevGCODE <> "" Then%> <%End if%> <%ShowReturns()%> <%If bAllowItemRelations Then If Not rsTracking.EOF Then%> <%End if End if%>
<%End If%>
<%Dim bRelUpgPresent bRelUpgPresent = False if bShowRelatedItems Then%> <%'*** If related items are there and show related items is enabled in Everest If not rsRltdItems.Eof Then bRelUpgPresent = True%> <%If sItemCallForPrice <> "T" Then%> <%End If%>
Select an ADD-On by checking its box. One will be included in order when you put <%= sItemName %> in "the Basket."
<%End If%> <%End If%> <%'*** If related items are there and show related items is enabled in everest condition ends here '*** If upgrade items are there then show them If bUpgDwgItems Then If not rsUpgradeItems.Eof Then bRelUpgPresent = True%>
Related items
<%End If End If '*** If upgrade items are there then show them condition ends here%> <% '*** If no related items and upgrade items then show categories in the left side If not bRelUpgPresent Then%> <%End If%>