<%@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">
 
 
<% set rsAccount = Server.CreateObject("ADODB.Recordset") rsAccount.ActiveConnection = MM_acutederm_STRING rsAccount.Source = "SELECT * FROM contacts WHERE contact_id = " & session("login_id") rsAccount.CursorType = 0 rsAccount.CursorLocation = 2 rsAccount.LockType = 3 rsAccount.Open() session("newaccount_owner_id") = session("login_id") set rsSetup = Server.CreateObject("ADODB.Recordset") rsSetup.ActiveConnection = MM_acutederm_STRING rsSetup.Source = "SELECT * FROM accounts WHERE account_id = " & session("authoritative_id") rsSetup.CursorType = 0 rsSetup.CursorLocation = 2 rsSetup.LockType = 3 rsSetup.Open() if session("contact_type_id") < 5 then intSetupID = 7 end if if session("contact_type_id") < 3 then intSetupID = 16 end if strSteps = rsSetup.fields.item("account_setupsteps") & "|" & intSetupID & "|" rsSetup.close set rsSetup = Server.CreateObject("ADODB.Recordset") rsSetup.ActiveConnection = MM_acutederm_STRING rsSetup.Source = "UPDATE accounts SET account_setupsteps = '" & strSteps & "' WHERE account_id = " & session("authoritative_id") rsSetup.CursorType = 0 rsSetup.CursorLocation = 2 rsSetup.LockType = 3 rsSetup.Open() %>
My Account
Billing Information
<% if rsAccount.fields.item("contact_surname") <> "" then response.write rsAccount.fields.item("contact_surname") & " " end if if rsAccount.fields.item("contact_firstname") <> "" then response.write rsAccount.fields.item("contact_firstname") & " " end if if rsAccount.fields.item("contact_lastname") <> "" then response.write rsAccount.fields.item("contact_lastname") end if if rsAccount.fields.item("contact_suffix") <> "" then response.write ", " & rsAccount.fields.item("contact_suffix") end if %>
<%=rsAccount.fields.item("contact_billto_address")%>
<%=rsAccount.fields.item("contact_billto_city")%>, <%=rsAccount.fields.item("contact_billto_state")%>  <%=rsAccount.fields.item("contact_billto_zip")%>
Shipping Information
<%=rsAccount.fields.item("contact_shipto_name")%>
<%=rsAccount.fields.item("contact_shipto_address")%>
<%=rsAccount.fields.item("contact_shipto_city")%>, <%=rsAccount.fields.item("contact_shipto_state")%>  <%=rsAccount.fields.item("contact_shipto_zip")%>

Phone: <%=rsAccount.fields.item("contact_phone")%>
Mobile: <%=rsAccount.fields.item("contact_cellphone")%>
Fax: <%=rsAccount.fields.item("contact_fax")%>
<% strEmail = rsAccount.fields.item("contact_email") %> Email: <%=strEmail%>
Country: <%=rsAccount.fields.item("contact_country")%>
Internal Messaging:  <% if rsAccount.fields.item("contact_emailnotification") = 1 then response.write "Yes" else response.write "No" end if %>
Taxable:  <% if rsAccount.fields.item("contact_taxable") = 1 then response.write "Yes" else response.write "No" end if %>


<% session("thispageid") = 10 %> <% ynAllow = 0 if cint(session("pageEDIT")) = 1 AND session("authoritative_id") = 1 then ynAllow = 1 end if if ynAllow = 1 then %>

Modify The Distribution Center Account
Many of the Distribution Center's properties control how the system functions and how storefronts within the system can behave. <% end if %> <% set rsAccounts = Server.CreateObject("ADODB.Recordset") rsAccounts.ActiveConnection = MM_acutederm_STRING rsAccounts.Source = "SELECT * FROM accounts, account_types, sounds WHERE account_owner_id = " & session("login_id") & " AND accttype_id = account_accttype_id AND sound_id = account_sound" rsAccounts.CursorType = 0 rsAccounts.CursorLocation = 2 rsAccounts.LockType = 3 rsAccounts.Open() x = 0 do while not rsAccounts.eof x=x+1 %> <% if session("contact_type_id") = 3 then%> Activate/Renew Your Online Storefront
Your storefront was first opened on <%=session("account_begin")%> and is valid through <%=session("account_end")%>. You can renew any time before then.

Create A New Storefront Account
A new storefront account will require you to create a new login identity with another username and password for the new account.
<% end if %> <% if session("contact_type_id") > 2 then strURL = "/admin/content/contact_editsubdomain2.asp?account_alias=" & rsAccounts.fields.item("account_alias") %>

Other Storefront Properties
Change Catalog Item Selections & Storefront Template
View Your Storefront Agreement

<% end if %>

 


 

Online Distributorship Properties: Account <%=x%>
Account Type: <%=rsAccounts.fields.item("accttype_name")%>
Account Number: <%=rsAccounts.fields.item("account_number")%>
Business Name: <%=rsAccounts.fields.item("account_name")%>
Account Opened: <%=rsAccounts.fields.item("account_begin")%>
Expiration Date: <% strEnd = rsAccounts.fields.item("account_end") if datediff("d", date(), strEnd) < 1 then %> <% end if %> <%=strEnd%> <% if datediff("d", date(), strEnd) < 1 then %> <% end if %>
Credit Limit: <%=rsAccounts.fields.item("account_creditlimit")%>
Terms: <%=rsAccounts.fields.item("account_terms")%>
Website Address: ?<%=rsAccounts.fields.item("account_alias")%>" target="_blank"><%=session("home_page")%>?alias=<%=rsAccounts.fields.item("account_alias")%>
Website Sound: <%=rsAccounts.fields.item("sound_description")%>
Customer Orders: text
Retail/Wholesale: text

Transactions:
<% strItems = rsAccounts.fields.item("account_transactions") do while not len(strItems) < 1 intPosition = instr(strItems, "|") strItems = right(strItems, len(strItems) - intPosition) intPosition = instr(strItems, "|") strTrans = left(strItems, intPosition - 1) strItems = right(strItems, len(strItems) - intPosition) response.write strTrans & "
" loop %>

Catalog Items Selected:
<% strItems = rsAccounts.fields.item("account_selected_items") do while not len(strItems) < 1 intPosition = instr(strItems, "|") strItems = right(strItems, len(strItems) - intPosition) intPosition = instr(strItems, "|") strTrans = left(strItems, intPosition - 1) strItems = right(strItems, len(strItems) - intPosition) set rsItems = Server.CreateObject("ADODB.Recordset") rsItems.ActiveConnection = MM_acutederm_STRING rsItems.Source = "SELECT * FROM items WHERE item_id = " & strTrans rsItems.CursorType = 0 rsItems.CursorLocation = 2 rsItems.LockType = 3 rsItems.Open() response.write "" & rsItems.fields.item("item_name") & "
" rsItems.close loop %>

<% rsAccounts.movenext loop rsAccounts.close %>

<% rsAccount.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.