<%@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")%> <% ynCartExists = 0 if not len(session("cart")) < 1 then ynCartExists = 1 end if if ynCartExists = 0 then if ynCatalogEnabled = 0 then %> <% else %> <% end if end if %> <% 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">
 
 
Your Shopping Cart's Contents
<% if not session("login_id") > 0 and not session("showcartmessage") = 0 then session("showcartmessage") = 0 %>
Welcome To Our New Online Shopping Cart

If you have not created a new account since March 1, 2004, you will be
required to create a new account before completing your purchase.

When you click the Checkout button, you can
either log in or create a new account then.
<% end if %> <% if ynCartExists = 1 then %> <%strCart = session("cart") Subtotal = 0 Total = 0 Pieces = 0 do while not strCart = "" if len(strCart) < 6 then strCart = "" end if if len(strCart) > 0 and left(strCart, 2) = "||" then 'parse the cart strCart = right(strCart, (len(strCart) - 2)) intLength = instr(strCart, "|") - 1 intSize = cint(left(strCart, intLength)) strCart = right(strCart, len(strCart) - len(intSize) - 1) intLength = instr(strCart, "|") - 1 intQty = cint(left(strCart, intLength)) strCart = right(strCart, (len(strCart) - intLength)) 'get the size from the database set rsThisSize = Server.CreateObject("ADODB.Recordset") rsThisSize.ActiveConnection = MM_acutederm_STRING rsThisSize.Source = "SELECT * FROM sizes, items WHERE size_id = " & intSize & " AND item_id = size_item_id" rsThisSize.CursorType = 0 rsThisSize.CursorLocation = 2 rsThisSize.LockType = 3 rsThisSize.Open() intItemID = rsThisSize.fields.item("item_id") 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 intImgID = rsThisSize.fields.item("size_image_id_small") set rsThisImage = Server.CreateObject("ADODB.Recordset") rsThisImage.ActiveConnection = MM_acutederm_STRING rsThisImage.Source = "SELECT * FROM images WHERE image_id = " & intImgID rsThisImage.CursorType = 0 rsThisImage.CursorLocation = 2 rsThisImage.LockType = 3 rsThisImage.Open() 'determine the price if session("login_id") = 0 or session("contact_taxable") = 1 then if ynOnSpecial = 1 then numPrice = rsThisSize.fields.item("size_special_retail_price") else numPrice = rsThisSize.fields.item("size_retail_price") end if else if session("login_id") > 0 and session("contact_taxable") = 0 then if ynOnSpecial = 1 then numPrice = rsThisSize.fields.item("size_special_wholesale_price") else numPrice = rsThisSize.fields.item("size_wholesale_price") end if end if end if Subtotal = Subtotal + (intQty * numPrice) Total = Total + Subtotal Pieces = Pieces + intQty %> <% rsThisSize.close end if Subtotal = 0 loop %>
 
Quantity
Product
Price
Subtotal
Taxable
 
<% if not rsThisImage.eof then %> " width="50" height="68"> <% end if rsThisImage.close %>

<%=intQty%>

<%=rsThisSize.fields.item("size_name")%> <%=rsThisSize.fields.item("item_name")%>

<% if session("contact_taxable") = 1 then if ynOnSpecial = 1 then response.write formatcurrency(numPrice) else response.write formatcurrency(numPrice) end if else if session("login_id") > 0 and session("contact_taxable") = 0 then if ynOnSpecial = 1 then response.write formatcurrency(numPrice) else response.write formatcurrency(numPrice) end if end if end if %>

<%=formatcurrency(Subtotal)%>
<% if rsThisSize.fields.item("item_taxable") = 1 then %>
Yes <% else %>
No <% end if %>



 
Pieces
<%=Pieces%>
   
Total
<%=formatcurrency(Total)%>
   
<% if session("contact_type_id") = 1 or session("contact_type_id") = 2 then set rsTaxStates = Server.CreateObject("ADODB.Recordset") rsTaxStates.ActiveConnection = MM_acutederm_STRING rsTaxStates.Source = "SELECT * FROM taxablestates ORDER BY taxstate_name" rsTaxStates.CursorType = 0 rsTaxStates.CursorLocation = 2 rsTaxStates.LockType = 3 rsTaxStates.Open() %>
This order is taxable in and should be charged .
<% rsTaxStates.close end if end if if not ynCartExists = 1 then %>
There are no items in your shopping cart.
<% end if %>
<% if Total > 0 then set rsShipLevel = Server.CreateObject("ADODB.Recordset") rsShipLevel.ActiveConnection = MM_acutederm_STRING rsShipLevel.Source = "SELECT * FROM shipping_levels ORDER BY shiplevel_amount" rsShipLevel.CursorType = 0 rsShipLevel.CursorLocation = 2 rsShipLevel.LockType = 3 rsShipLevel.Open() if rsShipLevel.eof then response.redirect "/error.asp?title=Setup Incomplete&message=The Distribution Center has not defined any shipping levels. Please contact our office to place your order and let us know about this error." end if do while Total > rsShipLevel.fields.item("shiplevel_amount") rsShipLevel.movenext if rsShipLevel.eof then session("yesurl") = "/catalog/clear_cart.asp" session("nourl") = "/catalog/index.asp" response.redirect "/yesno.asp?title=Maximum Exceeded&message=The maximum shipping level has been exceeded, so the cart can not be displayed. Click YES to clear your cart and start over or click NO to keep the cart intact. Please call our office to place larger orders." end if loop intShipLevelID = rsShipLevel.fields.item("shiplevel_id") numShipLevelCost = rsShipLevel.fields.item("shiplevel_cost") rsShipLevel.close set rsRush = Server.CreateObject("ADODB.Recordset") rsRush.ActiveConnection = MM_acutederm_STRING rsRush.Source = "SELECT * FROM rushshipping WHERE rushchg_shippinglevel_id = " & intShipLevelID & " ORDER BY rushchg_cost" rsRush.CursorType = 0 rsRush.CursorLocation = 2 rsRush.LockType = 3 rsRush.Open() numRushCost = rsRush.fields.item("rushchg_cost") %> Shipping Options:
(Shipping on wholesale orders may be different that that shown below.)
<% end if %>

Completing a purchase requires an account. This will allow us to track your order and notify you of order status. We do not store credit card numbers in our system. When checking out, you may be required to provide this information again to complete the order process. Taxes will be calculated on the next page.

<% if ynCartExists = 1 then %> <% if not session("login_id") > 0 then %>    <% else %>    <% end if end if %>    

Credit card processing will be conducted by iTransact.

            Click to visit the iTransact website.

<% ynNewMessages = 0 set rsMsg = Server.CreateObject("ADODB.Recordset") rsMsg.ActiveConnection = MM_acutederm_STRING rsMsg.Source = "SELECT * FROM messages WHERE message_to_contact_id = " & session("login_id") & " AND message_read = 0" rsMsg.CursorType = 0 rsMsg.CursorLocation = 2 rsMsg.LockType = 3 rsMsg.Open() if not rsMsg.eof then ynNewMessages = 1 end if rsMsg.close if ynNewMessages = 1 and session("newmessages") = 0 then session("newmessages") = 1 %>
/popup.jpg">

Unread Messages

You have unread messages in your inbox. Click here to read new messages now.

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