<%@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">
 
 
Online Catalog

Please select a category to view only products in that category.

All Categories
<% set rsCategories = Server.CreateObject("ADODB.Recordset") rsCategories.ActiveConnection = MM_acutederm_STRING rsCategories.Source = "SELECT * FROM item_categories ORDER BY itemcategory_name" rsCategories.CursorType = 0 rsCategories.CursorLocation = 2 rsCategories.LockType = 3 rsCategories.Open() do while not rsCategories.eof intCategoryID = rsCategories.fields.item("itemcategory_id") %> <%=rsCategories.fields.item("itemcategory_name")%> <% if session("permissions") <> "" and session("contact_type_id") < 3 then %>     Edit    Delete <% end if %>
<% rsCategories.movenext loop rsCategories.requery ' open the appropriate item list intCatID = "" & request.querystring("itemcategory_id") strExtra = "" if intCatID = "" then 'do nothing else strExtra = strExtra & " AND item2cat_category_id = " & intCatID & " " end if set rsItems2Categories = Server.CreateObject("ADODB.Recordset") rsItems2Categories.ActiveConnection = MM_acutederm_STRING rsItems2Categories.Source = "SELECT * FROM items, items2categories WHERE item_id = item2cat_item_id " & strExtra & "ORDER BY item_name" rsItems2Categories.CursorType = 0 rsItems2Categories.CursorLocation = 2 rsItems2Categories.LockType = 3 rsItems2Categories.Open() %> <% if session("permissions") <> "" and session("contact_type_id") < 3 then %>
Add New Category   Add A New Item <% end if %>

<% 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 %>
Add New Opt-In Broadcasting Categories
<% 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.