<%@ LANGUAGE="VBSCRIPT" %><% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront v.3.0.1 ' ' Author : LaGarde, Incorporated ' ' Description: This file gathers the global variables used to operate ' your web store and logs them to the admin table in your ' storefront database. ' ' Notes : There are no configurable elements in this file. ' ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to LaGarde, Incorporated. Its use or disclosure in ' whole or in part without the expressed written permission of ' LaGarde, Incorporated is expressely prohibited. ' ' (c) Copyright 1998 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %><% Dim DSN_Name DSN_Name = Session("DSN_Name") 'Response.Write DSN_Name Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "DSN="&DSN_Name&"" 'Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=e:\inetpub\vsroot\lagarde\thenaturestore\_private\naturestore.mdb" If Request.QueryString("Update") = "1" Then EMAIL_MESSAGE = Replace(Request.Form("EMAIL_MESSAGE"),"'","''") EMAIL_SUBJECT = Replace(Request.Form("EMAIL_SUBJECT"),"'","''") SQLStmt = "UPDATE Admin SET TAX_COUNTRY = '" & Trim(Request("Tax_Country")) & "', " SQLStmt = SQLStmt & "TAX_STATE = '" & Trim(Request("Tax_State")) & "', " SQLStmt = SQLStmt & "STATE_TAX_AMOUNT = '" & Trim(Request("State_Tax_Amount")) & "', " SQLStmt = SQLStmt & "COUNTRY_TAX_AMOUNT = '" & Trim(Request("Country_Tax_Amount")) & "', " SQLStmt = SQLStmt & "DOMAIN_NAME = '" & Trim(Request("DOMAIN_NAME")) & "', " SQLStmt = SQLStmt & "MAIL_METHOD = '" & Trim(Request("MAIL_METHOD")) & "', " SQLStmt = SQLStmt & "MAIL_SERVER = '" & Trim(Request("MAIL_SERVER")) & "', " SQLStmt = SQLStmt & "PRIMARY_EMAIL = '" & Trim(Request("PRIMARY_EMAIL")) & "', " SQLStmt = SQLStmt & "SECONDARY_EMAIL = '" & Trim(Request("SECONDARY_EMAIL")) & "', " SQLStmt = SQLStmt & "EMAIL_SUBJECT = '" & Trim(EMAIL_SUBJECT) &"', " SQLStmt = SQLStmt & "EMAIL_MESSAGE = '" & EMAIL_MESSAGE & "', " SQLStmt = SQLStmt & "MAIL_CC = '" & Trim(Request("MAIL_CC")) & "', " SQLStmt = SQLStmt & "SHIPPING_A = '" & Trim(Request("SHIPPING_A")) & "', " SQLStmt = SQLStmt & "SHIPPING_B = '" & Trim(Request("SHIPPING_B")) & "', " SQLStmt = SQLStmt & "SHIPPING_C = '" & Trim(Request("SHIPPING_C")) & "', " SQLStmt = SQLStmt & "SHIPPING_D = '" & Trim(Request("SHIPPING_D")) & "', " SQLStmt = SQLStmt & "SHIPPING_E = '" & Trim(Request("SHIPPING_E")) & "', " SQLStmt = SQLStmt & "SHIPPING_F = '" & Trim(Request("SHIPPING_F")) & "', " SQLStmt = SQLStmt & "SHIPA_AMOUNT = '" & Trim(Request("SHIPA_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPAB_AMOUNT = '" & Trim(Request("SHIPAB_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPBC_AMOUNT = '" & Trim(Request("SHIPBC_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPCD_AMOUNT = '" & Trim(Request("SHIPCD_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPDE_AMOUNT = '" & Trim(Request("SHIPDE_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPEF_AMOUNT = '" & Trim(Request("SHIPEF_AMOUNT")) & "', " SQLStmt = SQLStmt & "SHIPF_UP_AMOUNT = '" & Trim(Request("SHIPF_UP_AMOUNT")) & "', " SQLStmt = SQLStmt & "SF_PATH = '" & Trim(Request("SF_PATH")) & "', " SQLStmt = SQLStmt & "SSL_PATH = '" & Trim(Request("SSL_Path")) & "', " SQLStmt = SQLStmt & "SPECIAL_SHIP_AMOUNT = '" & Trim(Request("SPECIAL_SHIP_AMOUNT")) & "', " SQLStmt = SQLStmt & "TRANSACTION_METHOD = '" & Trim(Request("TRANSACTION_METHOD")) & "', " SQLStmt = SQLStmt & "PAYMENT_SERVER = '" & Trim(Request("PAYMENT_SERVER")) & "'," SQLStmt = SQLStmt & "LOGIN = '" & Trim(Request("LOGIN")) & "', " SQLStmt = SQLStmt & "MERCHANT_TYPE = '" & Trim(Request("MERCHANT_TYPE")) & "' " SQLStmt = SQLStmt & "WHERE ID = " & Request.QueryString("ID") & " " 'Response.Write SQLStmt Set RSUpdt = Connection.Execute(SQLStmt) SQLStmt = "SELECT * FROM Admin" Set RSConfirmUpdt = Connection.Execute(SQLStmt) ElseIf Request.QueryString("Update") = "0" Then SQLStmt = "SELECT * FROM Admin" Set RS = Connection.Execute(SQLStmt) End If %> New Store Set-Up <% If Request.QueryString("UPDATE") = "1" Then %> <% If (RSConfirmUpdt("TRANSACTION_METHOD")) = "AuthorizeNet" Then %> <% End If %>

Store Configuration Confirmation
The store configuration has been updated as shown below.  You may change these variables at any time by re-running the New Store Set-Up routine. 
Tax Country:  <%= RSConfirmUpdt("Tax_Country") %>
Country Tax Rate:  <%= RSConfirmUpdt("Country_Tax_Amount") %>
Tax State or Area:  <%= RSConfirmUpdt("Tax_State") %>
Tax Rate:  <%= RSConfirmUpdt("State_Tax_Amount") %>
Domain Name:  <%= RSConfirmUpdt("DOMAIN_NAME") %>
Application Path:  <%= RSConfirmUpdt("SF_PATH") %>
Secure Directory (SSL) Path:  <%= RSConfirmUpdt("SSL_PATH") %>
Transaction Method:  <%= RSConfirmUpdt("TRANSACTION_METHOD") %>
Send StoreFront Configuration to AuthorizeNet
Payment Server:  <%= RSConfirmUpdt("PAYMENT_SERVER") %>
Merchant Login:  <%= RSConfirmUpdt("LOGIN") %>
Merchant Type:  <%= RSConfirmUpdt("MERCHANT_TYPE") %>
EMail Method <%= RSConfirmUpdt("MAIL_METHOD") %>
Mail Server Address <%= RSConfirmUpdt("MAIL_SERVER") %>
Primary E-Mail Recipient:  <%= RSConfirmUpdt("PRIMARY_EMAIL") %>
Secondary E-Mail Recipient: <%= RSConfirmUpdt("SECONDARY_EMAIL") %>
Send Credit Card Data to Merchant via E-Mail: <% IF Trim(RSConfirmUpdt("MAIL_CC")) = "on" Then %>Yes<% Else %>No<% End If %>
EMail Subject Line:  <%= RSConfirmUpdt("EMAIL_SUBJECT") %>
EMail Message:  <%= RSConfirmUpdt("EMAIL_MESSAGE") %>


Shipping Cost Schedule
For sales amount totals up to: <%= FormatCurrency(RSConfirmUpdt("SHIPPING_A")) %> The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPA_AMOUNT")) %>
Sales from the amount above up to :<%= FormatCurrency(RSConfirmUpdt("SHIPPING_B")) %>

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPAB_AMOUNT")) %>
Sales from the amount above up to :<%= FormatCurrency(RSConfirmUpdt("SHIPPING_C")) %>

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPBC_AMOUNT")) %>
Sales from the amount above up to :<%= FormatCurrency(RSConfirmUpdt("SHIPPING_D")) %>

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPCD_AMOUNT")) %>
Sales from the amount above up to :<%= FormatCurrency(RSConfirmUpdt("SHIPPING_E")) %>

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPDE_AMOUNT")) %>
Sales from the amount above up to :<%= FormatCurrency(RSConfirmUpdt("SHIPPING_F")) %>

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPEF_AMOUNT")) %>
Sales over the amount shown above:

 

 The shipping charge is: <%= FormatCurrency(RSConfirmUpdt("SHIPF_UP_AMOUNT")) %>
For 2nd Day Air add this amount to the amount calculated for standard Ground Shipment:  <%= FormatCurrency(RSConfirmUpdt("SPECIAL_SHIP_AMOUNT")) %>
<% End If %><% If Request.QueryString("UPDATE") = "0" Then %>

Store Administration

The new store set-up routine allows you to set global variables for managing your store.  The shipping rates, tax state, tax rate, and e-mail variables will be applied to each order processed through your web store.  Default values have been pre-loaded into your store configuration files and are shown below.  Be sure to check each variable and set it for your particular application.
" align="center" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)">
The first section of the set-up routine deals with establishing the taxable country and state.  Remember, it is your responsibility to accurately determine all applicable laws pertaining to the operation of your store and to configure the store correctly to comply with those laws.
Tax Country: 
Enter the tax rate applicable to orders being shipped to the country selected above.  Tax should be entered as a decimal value such as .065 for 6.5%
Country Tax Rate:  " size="20">
Tax State or Area: 
Enter the tax rate applicable to orders being shipped to the state or area selected above.  Tax should be entered as a decimal value such as .065 for 6.5%
State Tax Rate:  " size="20">
Enter the full path to the root of your website. This is the path that users will be sent to if they try to add items to a closed order.
Domain Root Path: ">
In the box below you will need to enter the application path to the addproduct.asp file which is used by your StoreFront web store to build your customers orders. The path will begin with "http." If you are working on a local, development webserver then this path will be something like: "http://machinename/webname/addproduct.asp." If you are published to a production webserver then this path will probably be something like: "http://yourdomain.com/addproduct.asp." Enter this path in the box below:
Application Path: ">
This box is used to set the path to the process_order.asp file. If you are using SSL you will need to move the ssl directory to the secure directory set up by the web administrator. The first file called to start the secure check out process is the the file "process_order.asp" This box should contain the full path to the process_order.asp file, including the file name itself. Such as "https://www.securedomain.com/securedirectory/ssl/process_order.asp" If you are not running in SSL; such as during development, etc, then this path should point to the ssl directory where the process_order.asp file is running. This is a required field:
SSL Path: ">
In the input boxes below you will establish the variables for handling orders for your web store.  The store is configured to send all orders via e-mail as well as a copy to the customer as a receipt. You will need to specify the mail component being used on the web server and the e-Mail addresses where you wish to have orders sent.
Mail Method 
Mail Server Address ">
Primary E-Mail Recipient:  " size="40">
Secondary E-Mail Recipient: " size="40">
Send Credit Card Data to Merchant via E-Mail: checked <% Else %><% End If %>>
E-Mail Subject Line: " size="40">
The text entered below will appear as a header in the e-mail message which is sent to the customer as a receipt.  
Mail Message:
From the list below indicate how you are going to process orders. The default method is for EMail Merchant Processing where all orders are sent to the primary and secondary store adminsistrator for processing outside of the StoreFront system. You may also elect to use an on-line authorization and transaction processing service.  StoreFront currently has integrated support for AuthorizeNet (www.authorizenet.com), CyberCash (www.cybercash.com), and CarmelCash (www.carmelww.com). You will need to establish an account directly with one of these transaction services before configuring this option. The default configuration is for EMail Merchant Processing
Transaction Method
If you have set up to use one of the on-line transaction services listed above then you will need to complete these fields. This information will be provided by the processing service. Disregard this section if using EMail Merchant Processing.
Payment Server Path ">
Payment Server Login ">
Merchant Type checked <% else %> <% end if %> name="MERCHANT_TYPE" value="normal_auth">Normal Authorization
checked <% else %> <% end if %> name="MERCHANT_TYPE" value="authonly">AuthOnly
checked <% else %> <% end if %> name="MERCHANT_TYPE" value="credit">Credit
checked <% else %> <% end if %> name="MERCHANT_TYPE" value="authcapture">AuthCapture
The fields below are used to set up the shipping rates applicable to orders from your web store.  The standard configuration for StoreFront bases charges on the total amount of the customer's order.  The standard configuration is set up to allow for standard Ground Shipment and 2nd Day Air Shipping.  The 2nd Day Air Shipping Rate is calculated as an amount added to the Standard Ground Shipment charges.  The amount added is the same across all rate categories.
For sales amount
totals up to: " size="6">		 The shipping charge is: " size="6">
Sales from the amount
above up to :" size="6">

 
The shipping charge is: " size="6">
Sales from the amount
above up to :" size="6">

 
The shipping charge is: " size="6">
Sales from the amount
above up to :" size="6">

 
The shipping charge is: " size="6">
Sales from the amount
above up to :" size="6">

 
The shipping charge is: " size="6">
Sales from the amount
above up to :" size="6">

 
The shipping charge is: " size="6">
Sales over the amount shown above:

 
The shipping charge is: " size="6">
For 2nd Day Air add this amount to the amount calculated for standard Ground Shipment:  " size="6">
<% End If %>

 

<% Connection.Close %>

Add Product | Delete Product | List Products | Edit Product
Sales Reporting | Store Set-Up