<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_acutederm_STRING = "dsn=kronberg;" %> <% if not session("account_id") > 0 then %> <% end if %> <%ynShowMenu = 1 %> <% if session("contact_type_id") = 1 or session("contact_type_id") = 2 then intMaxPPS = 3 else if session("contact_type_id") = 3 or session("contact_type_id") = 4 then intMaxPPS = 2 else intMaxPPS = 1 end if end if %> <% strTemplateID = session("strTemplateID") intAcctID = session("account_id") strTemplateTextColor = session("template_textcolor") %> <% set rsOffline = Server.CreateObject("ADODB.Recordset") rsOffline.ActiveConnection = MM_acutederm_STRING rsOffline.Source = "SELECT * FROM domainsettings" rsOffline.CursorType = 0 rsOffline.CursorLocation = 2 rsOffline.LockType = 3 rsOffline.Open() if rsOffline.fields.item("setting_offline") = 1 then response.redirect "/error.asp?title=Website Offline&message=The website is temporarily offline for maintenance. Please try back later or call " & session("setting_domain_contact_phone") & " to place your order." end if rsOffline.close %> <% if strTemplateID > 0 then else response.redirect "/error.asp?title=Cookies Required&message=The system was unable to display the website.
Please make sure your browser's cookies are enabled and try again." end if %> <% set rsFeaturedProducts = Server.CreateObject("ADODB.Recordset") rsFeaturedProducts.ActiveConnection = MM_acutederm_STRING rsFeaturedProducts.Source = "SELECT * FROM items WHERE item_denied = 0 AND item_featured = 1" rsFeaturedProducts.CursorType = 0 rsFeaturedProducts.CursorLocation = 2 rsFeaturedProducts.LockType = 3 rsFeaturedProducts.Open() intSecond = second(now) if not rsFeaturedProducts.eof then for i = 1 to intSecond rsFeaturedProducts.movenext if rsFeaturedProducts.eof then rsFeaturedProducts.movefirst end if next end if %> <% set rsCatalogEnabled = Server.CreateObject("ADODB.Recordset") rsCatalogEnabled.ActiveConnection = MM_acutederm_STRING rsCatalogEnabled.Source = "SELECT setting_catalog_enabled FROM domainsettings" rsCatalogEnabled.CursorType = 0 rsCatalogEnabled.CursorLocation = 2 rsCatalogEnabled.LockType = 3 rsCatalogEnabled.Open() ynCatalogEnabled = rsCatalogEnabled.fields.item("setting_catalog_enabled") rsCatalogEnabled.close %> <% if ynCatalogEnabled = 0 then strExtra = " AND page_id <> 2" else strExtra = "" end if set rsButtons = Server.CreateObject("ADODB.Recordset") rsButtons.ActiveConnection = MM_acutederm_STRING rsButtons.Source = "SELECT * FROM pages WHERE (page_account_id = " & intAcctID & " OR page_required = 1) AND page_button_filename <> '' AND page_pps < " & intMaxPPS + 1 & strExtra & " ORDER BY page_id" rsButtons.CursorType = 0 rsButtons.CursorLocation = 2 rsButtons.LockType = 3 rsButtons.Open() rc = 0 do while not rsButtons.eof rc = rc + 1 rsButtons.movenext loop rsButtons_recordcount = rc if rc > 0 then rsButtons.movefirst end if set rsPages = Server.CreateObject("ADODB.Recordset") rsPages.ActiveConnection = MM_acutederm_STRING rsPages.Source = "SELECT * FROM pages WHERE (page_account_id = " & intAcctID & " OR page_required = 1) AND page_pps < " & intMaxPPS + 1 & " ORDER BY page_id" rsPages.CursorType = 0 rsPages.CursorLocation = 2 rsPages.LockType = 3 rsPages.Open() rc = 0 do while not rsPages.eof rc = rc + 1 rsPages.movenext loop if rc > 0 then rsPages.movefirst rsPages_recordcount = rc end if %> <%=session("account_name")%> <% strHidePortion = "" for i = 1 to intAllPagesToHideCount strHidePortion = strHidePortion & "'menu" & arrAllPagesToHide(i) & "','','hide'," next %>
  /spacer.gif" width="1" height="1">
/homepage_top-left.jpg" width="164" height="144" border="0"> codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" <% end if %> width="616" height="115"> pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" <% end if %> width="616" height="115">
<% for i = 1 to rsButtons_recordcount intThisButtonID = rsButtons.fields.item("page_id") %> <% rsButtons.movenext next if rsButtons_recordcount > 0 then rsButtons.movefirst end if %> <% for i = 1 to (7 - rsButtons_recordcount) %> <% next %>
" onMouseOver="MM_showHideLayers('menu<%=intThisButtonID%>','','show')" onMouseOut="MM_showHideLayers('hideallmenus','','show')">" width="86" height="30" border="0">
 
 
<% intItemID = request.querystring("item_id") set rsItem = Server.CreateObject("ADODB.Recordset") rsItem.ActiveConnection = MM_acutederm_STRING rsItem.Source = "SELECT * FROM items WHERE item_id = " & intItemID rsItem.CursorType = 0 rsItem.CursorLocation = 2 rsItem.LockType = 3 rsItem.Open() if rsItem.fields.item("item_denied") = 1 and session("contact_type_id") > 2 then response.redirect "/error.asp?title=Not For Sale&message=That items is not currently for sale. Please check back later." end if if rsItem.eof then response.redirect "/error.asp?title=Item Not Found&message=The item you requested was not found. Please go back and try again." else 'assemble strItemFiles strItemFiles = "" set rsF2I = Server.CreateObject("ADODB.Recordset") rsF2I.ActiveConnection = MM_acutederm_STRING rsF2I.Source = "SELECT * FROM upld2itm WHERE file2item_item_id = " & intItemID rsF2I.CursorType = 0 rsF2I.CursorLocation = 2 rsF2I.LockType = 3 rsF2I.Open() do while not rsF2I.eof strItemFiles = strItemFiles & "|" & rsF2I.fields.item("file2item_file_id") & "|" rsF2I.movenext loop rsF2I.close intSizesExist = 1 end if if rsItem.fields.item("item_discontinued") = 1 then strItemDiscon = " - DISCONTINUED" else strItemDiscon = "" end if set rsSpecials = Server.CreateObject("ADODB.Recordset") rsSpecials.ActiveConnection = MM_acutederm_STRING rsSpecials.Source = "SELECT * FROM specials" rsSpecials.CursorType = 0 rsSpecials.CursorLocation = 2 rsSpecials.LockType = 3 rsSpecials.Open() ynOnSpecial = 0 do while not rsSpecials.eof if instr(rsSpecials.fields.item("special_item_ids"), "|" & intItemID & "|") > 0 then ynOnSpecial = 1 end if rsSpecials.movenext loop rsSpecials.close strItemName = rsItem.fields.item("item_name") strExtra = "" if not len(session("permissions")) > 1 then strExtra = " AND size_discontinued = 0 " end if set rsSizes = Server.CreateObject("ADODB.Recordset") rsSizes.ActiveConnection = MM_acutederm_STRING rsSizes.Source = "SELECT * FROM sizes WHERE size_item_id = " & intItemID & strExtra & " ORDER BY size_name" rsSizes.CursorType = 0 rsSizes.CursorLocation = 2 rsSizes.LockType = 3 rsSizes.Open() if rsSizes.eof then ynSizesAvailable = 0 else strSizeFiles = rsSizes.fields.item("size_files") ynSizesAvailable = 1 end if %> <% 'check for an image set rsImage = Server.CreateObject("ADODB.Recordset") rsImage.ActiveConnection = MM_acutederm_STRING rsImage.Source = "SELECT * FROM images WHERE image_id = " & rsItem.fields.item("item_image_id_large") rsImage.CursorType = 0 rsImage.CursorLocation = 2 rsImage.LockType = 3 rsImage.Open() if rsImage.eof then strImage = "" else strImage = "" end if %>
<%=strItemName%><%=strItemDiscon%>
<%=strImage%> "> <% set rsGLTitles = Server.CreateObject("ADODB.Recordset") rsGLTitles.ActiveConnection = MM_acutederm_STRING rsGLTitles.Source = "SELECT * FROM glossary_types WHERE gl_type_id = 1" rsGLTitles.CursorType = 0 rsGLTitles.CursorLocation = 2 rsGLTitles.Open() strIngredientsTitle = ucase(rsGLTitles.fields.item("gl_type_name")) rsGLTitles.close set rsGLTitles = Server.CreateObject("ADODB.Recordset") rsGLTitles.ActiveConnection = MM_acutederm_STRING rsGLTitles.Source = "SELECT * FROM glossary_types WHERE gl_type_id = 2" rsGLTitles.CursorType = 0 rsGLTitles.CursorLocation = 2 rsGLTitles.Open() strBenefitsTitle = ucase(rsGLTitles.fields.item("gl_type_name")) rsGLTitles.close %>
<%=strBenefitsTitle%>

<% strIngredients = rsItem.fields.item("item_benefits") do while len(strIngredients) > 0 intLength = instr(strIngredients, "|") strIngredients = right(strIngredients, len(strIngredients) - intLength) intLength = instr(strIngredients, "|") - 1 intIngID = cint(left(strIngredients, intLength)) strIngredients = right(strIngredients, len(strIngredients) - (intLength + 1)) ' open the recordset set rsIngredient = Server.CreateObject("ADODB.Recordset") rsIngredient.ActiveConnection = MM_acutederm_STRING rsIngredient.Source = "SELECT * FROM glossary WHERE glossary_id = " & intIngID & " ORDER BY glossary_wordorphrase" rsIngredient.CursorType = 0 rsIngredient.CursorLocation = 2 rsIngredient.LockType = 3 rsIngredient.Open() response.write "" & rsIngredient.fields.item("glossary_wordorphrase") & "
" rsIngredient.close loop %>

">
<%=strIngredientsTitle%>

<% strIngredients = rsItem.fields.item("item_ingredients") do while len(strIngredients) > 0 intLength = instr(strIngredients, "|") strIngredients = right(strIngredients, len(strIngredients) - intLength) intLength = instr(strIngredients, "|") - 1 intIngID = cint(left(strIngredients, intLength)) strIngredients = right(strIngredients, len(strIngredients) - (intLength + 1)) ' open the recordset set rsIngredient = Server.CreateObject("ADODB.Recordset") rsIngredient.ActiveConnection = MM_acutederm_STRING rsIngredient.Source = "SELECT * FROM glossary WHERE glossary_id = " & intIngID rsIngredient.CursorType = 0 rsIngredient.CursorLocation = 2 rsIngredient.LockType = 3 rsIngredient.Open() response.write "" & rsIngredient.fields.item("glossary_wordorphrase") & "" if len(strIngredients) > 2 then response.write ", " end if rsIngredient.close loop %>

<% strObjBody = rsItem.fields.item("item_description") %>
<%=strObjBody%>

<% set rsFiles = Server.CreateObject("ADODB.Recordset") rsFiles.ActiveConnection = MM_acutederm_STRING rsFiles.Source = "SELECT * FROM upld ORDER BY file_title" rsFiles.CursorType = 0 rsFiles.CursorLocation = 2 rsFiles.LockType = 3 rsFiles.Open() intCount = 0 ynFiles = 0 do while not rsFiles.eof if instr(strItemFiles, "|" & rsFiles.fields.item("file_id") & "|") > 0 then ynFiles = 1 strAssociatedFiles = strAssociatedFiles & "  " & rsFiles.fields.item("file_title") & "
" end if rsFiles.movenext loop rsFiles.close if ynFiles = 1 then %>
Associated Files
<%=strAssociatedFiles%>
<% end if %>

<% if ynSizesAvailable = 0 then %>
There are no sizes of this item available.
<% end if %> <<Go Back    Send Link To A Friend <% if session("permissions") <> "" then %>      Add Sizes To This Item    Edit This Item <% end if if not session("login_id") > 0 then %> <% end if %>
<% do while not rsSizes.eof intSizeID = rsSizes.fields.item("size_id") 'determine the price if not session("login_id") > 0 or session("contact_taxable") = 1 then if ynOnSpecial = 1 then numPrice = rsSizes.fields.item("size_special_retail_price") else numPrice = rsSizes.fields.item("size_retail_price") end if else if session("contact_taxable") = 0 then if ynOnSpecial = 1 then numPrice = rsSizes.fields.item("size_special_wholesale_price") else numPrice = rsSizes.fields.item("size_wholesale_price") end if end if end if if not session("login_id") > 0 and session("setting_showretailpublic") = 0 then numPrice = 0 end if %>

<% 'check for an image set rsImage = Server.CreateObject("ADODB.Recordset") rsImage.ActiveConnection = MM_acutederm_STRING rsImage.Source = "SELECT * FROM images WHERE image_id = " & rsSizes.fields.item("size_image_id_small") rsImage.CursorType = 0 rsImage.CursorLocation = 2 rsImage.LockType = 3 rsImage.Open() if rsImage.eof then strImage = "" else strImage = "" end if %>
<%=strImage%>
<%=rsSizes.fields.item("size_name")%> <% if rsSizes.fields.item("size_discontinued") = 0 then strDESC = "" intDiscontinued = 0 else strDESC = " - DISCONTINUED" intDiscontinued = 1 end if strDESC = strDESC & "
" & rsSizes.fields.item("size_description") if strDESC <> "" then strObjBody = strDESC %> <%=strObjBody%> <% end if %>
Item #<%=rsSizes.fields.item("size_sku")%>
Units Per Case: <%=rsSizes.fields.item("size_no_in_case")%>
<% set rsFiles = Server.CreateObject("ADODB.Recordset") rsFiles.ActiveConnection = MM_acutederm_STRING rsFiles.Source = "SELECT * FROM upld ORDER BY file_title" rsFiles.CursorType = 0 rsFiles.CursorLocation = 2 rsFiles.LockType = 3 rsFiles.Open() ynFiles = 0 strAssociatedFiles = "" do while not rsFiles.eof if instr(strSizeFiles, "|" & rsFiles.fields.item("file_id") & "|") > 0 then ynFiles = 1 strAssociatedFiles = strAssociatedFiles & "  " & rsFiles.fields.item("file_title") & "" %> <% end if rsFiles.movenext loop rsFiles.close if ynFiles = 1 then %> Associated Files: <%=strAssociatedFiles%> <% end if %>
<% if session("permissions") <> "" then %> Edit Sizes    Discontinue This Size <% end if %>
<% if numPrice > 0 then if not session("login_id") > 0 or session("contact_taxable") = 1 then if ynOnSpecial = 1 then response.write "Special Retail Price" else response.write "Retail Price" end if else if session("contact_taxable") = 0 then if ynOnSpecial = 1 then response.write "Special Wholesale Price" else response.write "Wholesale Price" end if end if end if %>
<% if not session("login_id") > 0 or session("contact_taxable") = 1 then if ynOnSpecial = 1 then response.write formatcurrency(numPrice) else response.write formatcurrency(numPrice) end if else if session("contact_taxable") = 0 then if ynOnSpecial = 1 then response.write formatcurrency(numPrice) else response.write formatcurrency(numPrice) end if end if end if end if %>
Discount
<% if rsSizes.fields.item("size_unitsperdiscount") <> 0 then %> <% if instr(rsSizes.fields.item("size_discount"), "%") > 0 then response.write rsSizes.fields.item("size_discount") 'clip out the % symbol and cint, then /100 numYourPrice = 0 else response.write formatcurrency(rsSizes.fields.item("size_discount")) numYourPrice = 0 end if %> for <%=rsSizes.fields.item("size_unitsperdiscount") %> or more <% else %> none <% end if %>

<% if numPrice > 0 and intDiscontinued = 0 and strItemDiscon = "" then %>

<% else %> To purchase items, begin by logging in to reveal prices or contact us. <% end if %>
<% rsSizes.movenext loop %> <% 'begin automatic cross-selling set rsCross = Server.CreateObject("ADODB.Recordset") rsCross.ActiveConnection = MM_acutederm_STRING rsCross.Source = "SELECT setting_crosssell_auto, setting_max_crosssell FROM domainsettings" rsCross.CursorType = 0 rsCross.CursorLocation = 2 rsCross.LockType = 3 rsCross.Open() ynCrossAuto = rsCross.fields.item("setting_crosssell_auto") intMaxCross = rsCross.fields.item("setting_max_crosssell") rsCross.close if ynCrossAuto = 1 then set rsCrossOrders = Server.CreateObject("ADODB.Recordset") rsCrossOrders.ActiveConnection = MM_acutederm_STRING rsCrossOrders.Source = "SELECT * FROM order_lines, orders WHERE order_id = lineitem_order_id ORDER BY order_datetime DESC" rsCrossOrders.CursorType = 0 rsCrossOrders.CursorLocation = 2 rsCrossOrders.LockType = 3 rsCrossOrders.Open() strOrders = "" 'run through the records looking for a match do while not rsCrossOrders.eof if instr(rsCrossOrders.fields.item("lineitem_desc"), strItemName) > 0 then 'if a match exists, grab the ID strOrders = strOrders & "|" & rsCrossOrders.fields.item("order_id") & "|" end if rsCrossOrders.movenext loop rsCrossOrders.requery 'from the matching orders, grab some links xx = 0 if len(strOrders) > 0 then %>


Other Customers Who Purchased This Item Also Bought...

<% end if do while not rsCrossOrders.eof strLineItemDesc = rsCrossOrders.fields.item("lineitem_desc") if instr(strOrders, "|" & rsCrossOrders.fields.item("order_id") & "|") > 0 and xx < intMaxCross then 'get the item that matches set rsCrossItems = Server.CreateObject("ADODB.Recordset") rsCrossItems.ActiveConnection = MM_acutederm_STRING rsCrossItems.Source = "SELECT * FROM items WHERE item_id <> " & intItemID rsCrossItems.CursorType = 0 rsCrossItems.CursorLocation = 2 rsCrossItems.LockType = 3 rsCrossItems.Open() while not rsCrossItems.eof 'if a match exists, print a link strCrossItemName = rsCrossItems.fields.item("item_name") intImageID = rsCrossItems.fields.item("item_image_id_small") if instr(strLineItemDesc, strCrossItemName) > 0 then intCrossID = rsCrossItems.fields.item("item_id") set rsCrossImage = Server.CreateObject("ADODB.Recordset") rsCrossImage.ActiveConnection = MM_acutederm_STRING rsCrossImage.Source = "SELECT * FROM images WHERE image_id = " & intImageID rsCrossImage.CursorType = 0 rsCrossImage.CursorLocation = 2 rsCrossImage.LockType = 3 rsCrossImage.Open() if not rsCrossImage.eof then strImageFilename = rsCrossImage.fields.item("image_filename") end if rsCrossImage.close %> <% if intImageID > 0 then %> <% else %> <% end if %> <% xx = xx + 1 end if rsCrossItems.movenext wend rsCrossItems.close end if rsCrossOrders.movenext loop rsCrossOrders.close %> <% end if 'end automatic cross-selling if len(strOrders) > 0 then %>
<%=strCrossItemName%>
<%=rsCrossItems.fields.item("item_shortdesc")%>
<% end if 'begin manual cross-selling set rsCross = Server.CreateObject("ADODB.Recordset") rsCross.ActiveConnection = MM_acutederm_STRING rsCross.Source = "SELECT setting_crosssell_manual FROM domainsettings" rsCross.CursorType = 0 rsCross.CursorLocation = 2 rsCross.LockType = 3 rsCross.Open() ynCrossManual = rsCross.fields.item("setting_crosssell_manual") rsCross.close if ynCrossManual = 1 then set rsCross = Server.CreateObject("ADODB.Recordset") rsCross.ActiveConnection = MM_acutederm_STRING rsCross.Source = "SELECT * FROM crossselling WHERE crosssell_item_id1 = " & intItemID & " OR crosssell_item_id2 = " & intItemID rsCross.CursorType = 0 rsCross.CursorLocation = 2 rsCross.LockType = 3 rsCross.Open() ynShowTable = 0 if not rsCross.eof then ynShowTable = 1 %>


We Also Recommend These Products...

<% end if do while not rsCross.eof ID1 = rsCross.fields.item("crosssell_item_id1") ID2 = rsCross.fields.item("crosssell_item_id2") if cint(intItemID) = ID1 then intCrossID = ID2 else intCrossID = ID1 end if set rsCrossItem = Server.CreateObject("ADODB.Recordset") rsCrossItem.ActiveConnection = MM_acutederm_STRING rsCrossItem.Source = "SELECT * FROM items WHERE item_id = " & intCrossID rsCrossItem.CursorType = 0 rsCrossItem.CursorLocation = 2 rsCrossItem.LockType = 3 rsCrossItem.Open() intImageID = rsCrossItem.fields.item("item_image_id_small") if intImageID > 0 then set rsCrossImage = Server.CreateObject("ADODB.Recordset") rsCrossImage.ActiveConnection = MM_acutederm_STRING rsCrossImage.Source = "SELECT * FROM images WHERE image_id = " & intImageID rsCrossImage.CursorType = 0 rsCrossImage.CursorLocation = 2 rsCrossImage.LockType = 3 rsCrossImage.Open() if not rsCrossImage.eof then strImageFilename = rsCrossImage.fields.item("image_filename") end if rsCrossImage.close end if %> <% if intImageID > 0 then %> <% else %> <% end if %> <% rsCrossItem.close rsCross.movenext loop rsCross.close %> <% end if 'end manual cross-selling if ynShowTable = 1 then %>
<%=rsCrossItem.fields.item("item_name")%>
<%=rsCrossItem.fields.item("item_shortdesc")%>
<% end if %>
<% if session("permissions") <> "" then %> Add Sizes     <% end if %> Go To The Category List    Send Us Feedback <% if session("permissions") <> "" then %>     Edit Manual Cross-Selling Relationships <% end if %>

<% session("url") = "/catalog/item_details.asp?item_id=" & intItemID strSRC = "SELECT * FROM item_feedback WHERE itemfeedback_item_id = " & intItemID & " AND itemfeedback_approved = 1 ORDER BY itemfeedback_date" if session("contact_type_id") < 3 and session("login_id") > 0 then strSRC = "SELECT * FROM item_feedback WHERE itemfeedback_item_id = " & intItemID & " ORDER BY itemfeedback_date" end if set rsItemFeedbk = Server.CreateObject("ADODB.Recordset") rsItemFeedbk.ActiveConnection = MM_acutederm_STRING rsItemFeedbk.Source = strSRC rsItemFeedbk.CursorType = 0 rsItemFeedbk.CursorLocation = 2 rsItemFeedbk.LockType = 3 rsItemFeedbk.Open() if not rsItemFeedbk.eof then %> Customer Feedback About This Item
<% end if do while not rsItemFeedbk.eof intFeedbkID = rsItemFeedbk.fields.item("itemfeedback_id") if rsItemFeedbk.fields.item("itemfeedback_approved") = 1 then ynApproved = 1 else ynApproved = 0 end if %> <%=rsItemFeedbk.fields.item("itemfeedback_date")%>  <%=rsItemFeedbk.fields.item("itemfeedback_text")%> <% if session("contact_type_id") = 1 or session("contact_type_id") = 2 then if ynApproved = 0 then %>   Approve <% else %>   Disapprove <% end if end if %>
<% rsItemFeedbk.movenext loop rsItemFeedbk.close %>
<% rsItem.close rsSizes.close %>
<% intProdShown = 0 if ynCatalogEnabled = 1 then for i = 1 to session("setting_max_featuredproducts_showing") if not rsFeaturedProducts.eof then intFeaturedItemMenuID = rsFeaturedProducts.fields.item("item_id") if instr(session("account_selected_items"), "|" & intFeaturedItemMenuID & "|") > 0 or session("account_id") = 1 then intProdShown = intProdShown + 1 %> <% end if rsFeaturedProducts.movenext if rsFeaturedProducts.eof then rsFeaturedProducts.movefirst end if end if next end if %>
<% if session("login_id") > 0 then %> Welcome, <%=session("contact_name")%>
<% if session("contact_type_id") < 5 then %> VIEW ADMINISTRATION MENU.
PAGE ADMINISTRATION TOOLS <% if session("admintools") = 0 then %>DISABLED.
<% end if if session("admintools") = 1 then %>ENABLED.
<% end if %> <% end if end if %> <% if session("contact_type_id") > 0 and ynCatalogEnabled = 1 then %> VIEW CART  VIEW WISHLIST <% end if %><% if session("login_id") > 0 then%>  PRINT PAGE<% end if %>
<% set rsFeaturedImage = Server.CreateObject("ADODB.Recordset") rsFeaturedImage.ActiveConnection = MM_acutederm_STRING rsFeaturedImage.Source = "SELECT * FROM images WHERE image_id = " & rsFeaturedProducts.fields.item("item_image_id_small") rsFeaturedImage.CursorType = 0 rsFeaturedImage.CursorLocation = 2 rsFeaturedImage.LockType = 3 rsFeaturedImage.Open() if not rsFeaturedImage.eof then %> " border="0" alt="Click to view this product."> <% end if %>
<%=(rsFeaturedProducts.Fields.Item("item_name").Value)%>
<% strObjBody = rsFeaturedProducts.Fields.Item("item_shortdesc")%> <%=left(strObjBody, 100)%>

Read More

<% if ynCatalogEnabled = 1 then %>

<% end if %> <% if intProdShown > 0 then %> <% end if %>

Search Our Database
By entering a word or phrase below, you can search our entire database.

">
<% set rsInfo = Server.CreateObject("ADODB.Recordset") rsInfo.ActiveConnection = MM_acutederm_STRING rsInfo.Source = "SELECT * FROM info_types ORDER BY infotype_name" rsInfo.CursorType = 0 rsInfo.CursorLocation = 2 rsInfo.LockType = 3 rsInfo.Open() if not rsInfo.eof then %>
Receive Information & Updates
Opt-In Broadcasting - If you would like to stay updated on any of the following categories of information, you can opt into our messaging system by checking the category names below and providing your email address.

<% do while not rsInfo.eof intInfoID = rsInfo.fields.item("infotype_id")%> <%=rsInfo.fields.item("infotype_name")%><% if rsInfo.fields.item("infotype_desc") <> "" then %>
<%=rsInfo.fields.item("infotype_desc")%><% end if %>
<% rsInfo.movenext loop %>
<% end if rsInfo.close %> <% if session("permissions") <> "" then %> <% end if %>
 
 
© <%=year(now())%> - <%=year(now()) + 3%>
<%=session("account_name")%>
<% if session("ssl") = 1 then strPath = "https://" & session("root") & "/admin/content/contact_add.asp" else strPath = "/admin/content/contact_add.asp" end if %>
New Accounts  <% do while not rsPages.eof intMenuPageID = rsPages.fields.item("page_id") 'determine whether or not to display the link ynShow = 1 if ynCatalogEnabled = 0 then if intMenuPageID = 8 or intMenuPageID = 14 then ynShow = 0 end if end if if rsPages.fields.item("page_showonmenu") = 1 and rsPages.fields.item("page_loginrequired") = 0 and rsPages.fields.item("page_pps") < intMaxPPS + 1 and ynShow = 1 then %> | <%=rsPages.fields.item("page_name")%>  <% end if rsPages.movenext loop if rsPages_recordcount > 1 then rsPages.movefirst end if %> | <% do while not rsPages.eof 'determine whether or not to display the link intMenuPageID = rsPages.fields.item("page_id") if rsPages.fields.item("page_loginrequired") = 1 and session("login_id") > 0 then %>  <%=rsPages.fields.item("page_name")%> | <% end if rsPages.movenext loop if rsPages_recordcount > 1 then rsPages.movefirst end if %> Site Map | Search | https://<%=session("root")%>/loggingin/index.asp<% else %>/loggingin/login.asp<% end if %>" class="tah10" style="color:ffffff;font-weight:bold">Log In |
 
<% if ynShowMenu = 1 then intButtonNumber = 0 strParentIDs = "" pxLeft = 172 do while not rsButtons.eof intButtonNumber = intButtonNumber + 1 intButtonPageID = rsButtons.fields.item("page_id") 'special condition for help files if intButtonPageID = 3 then strHelp = "help" else strHelp = "" end if strParentIDs = "|" & intButtonPageID & "|" while not len(strParentIDs) < 3 %> <% wend rsButtons.movenext pxLeft = 172 + (86 * intButtonNumber) loop if rsButtons_recordcount > 1 then rsButtons.movefirst end if %> <% end if %>
"><%=session("marketing")%>
<%=session("marketing")%>
<% if session("contact_type_id") < 5 and session("contact_type_id") > 0 then %>

Add/Edit Marketing Statement
<% end if %> <% rsFeaturedProducts.Close() rsButtons.Close() %>
SmartGen Business Xpander was designed and hosted by LoeschWeb Hosting.