<%@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">
 
 
<% session("url") = "/index.asp" if request.querystring("page_id") <> 1 then response.redirect "index.asp?page_id=1" end if %> <% if ynCatalogEnabled = 1 then %> <% set rsSpecials = Server.CreateObject("ADODB.Recordset") rsSpecials.ActiveConnection = MM_acutederm_STRING rsSpecials.Source = "SELECT * FROM specials WHERE special_enabled = 1 ORDER BY special_begin" rsSpecials.CursorType = 0 rsSpecials.CursorLocation = 2 rsSpecials.LockType = 3 rsSpecials.Open() ' run through the specials selecting the ones that are running now strSpecialIDs = "" strSettingNoSpecialsMessage = "" set rsSettings = Server.CreateObject("ADODB.Recordset") rsSettings.ActiveConnection = MM_acutederm_STRING rsSettings.Source = "SELECT * FROM domainsettings" rsSettings.CursorType = 0 rsSettings.CursorLocation = 2 rsSettings.LockType = 3 rsSettings.Open() strSettingNoSpecialsMessage = rsSettings.fields.item("setting_nospecials_message") session("setting_homepage_image1") = rsSettings.fields.item("setting_homepage_image1") rsSettings.close a = 0 %> <% do while not rsSpecials.eof intSpecialID = rsSpecials.fields.item("special_id") strBegin = rsSpecials.fields.item("special_begin") strEnd = rsSpecials.fields.item("special_end") BeginOn = month(strBegin) & "/" & day(strBegin) & "/" &year(strBegin) EndOn = month(strEnd) & "/" & day(strEnd) & "/" &year(strEnd) intBegin = datediff("d", 01/01/1900, BeginOn) - 1 intEnd = datediff("d", 01/01/1900, EndOn) + 1 intToday = datediff("d", 01/01/1900, date()) if (intToday > intBegin and intToday < intEnd) or session("permissions") <> "" then strExtra = strSettingNoSpecialsMessage a=a + 1 if not rsSpecials.eof then set rsImage = Server.CreateObject("ADODB.Recordset") rsImage.ActiveConnection = MM_acutederm_STRING rsImage.Source = "SELECT * FROM specials_images WHERE image_id = " & rsSpecials.fields.item("special_image_id") rsImage.CursorType = 0 rsImage.CursorLocation = 2 rsImage.LockType = 3 rsImage.Open() %> <% rsImage.close end if end if rsSpecials.movenext loop rsSpecials.close if a = 0 then 'response.write strSettingNoSpecialsMessage end if end if %>
/titles/title_specials.gif" width=515 height=29 alt="" border="0">
<% if not rsImage.eof then %> " width=155 border="0"> <% end if %>
<% if ynCatalogEnabled = 1 then %>

<% end if %>

/spacer.gif" width=155 height=1 alt=""> /spacer.gif" width=4 height=1 alt=""> /spacer.gif" width=356 height=1 alt="">
<% 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.