<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim cartTotal, cartItems cartTotal = 0 cartItems = 0 %> <% Dim rsSettings Dim rsSettings_numRows Set rsSettings = Server.CreateObject("ADODB.Recordset") rsSettings.ActiveConnection = MM_conndb_STRING rsSettings.Source = "SELECT * FROM tblsettings WHERE settingID = 1" rsSettings.CursorType = 0 rsSettings.CursorLocation = 2 rsSettings.LockType = 1 rsSettings.Open() rsSettings_numRows = 0 %> <% Dim rsCategories Dim rsCategories_numRows Set rsCategories = Server.CreateObject("ADODB.Recordset") rsCategories.ActiveConnection = MM_conndb_STRING rsCategories.Source = "SELECT Distinct(tblcategories.catID), tblcategories.CategoryName FROM tblcategories INNER JOIN tblcategorieslink ON tblcategories.catID = tblcategorieslink.catID ORDER BY tblcategories.sort ASC" rsCategories.CursorType = 0 rsCategories.CursorLocation = 2 rsCategories.LockType = 1 rsCategories.Open() %> <% Dim rsCollections Dim rsCollections_numRows Set rsCollections = Server.CreateObject("ADODB.Recordset") rsCollections.ActiveConnection = MM_conndb_STRING rsCollections.Source = "SELECT Distinct(tblcollections.colID), tblcollections.CollectionName, tblcategories.catID FROM tblcollections INNER JOIN tblcollectionslink ON tblcollections.colID = tblcollectionslink.colID INNER JOIN tblcategorieslink ON tblcategorieslink.prodID = tblcollectionslink.prodID INNER JOIN tblcategories ON tblcategories.catID = tblcategorieslink.catID ORDER BY tblcollections.sort ASC" rsCollections.CursorType = 0 rsCollections.CursorLocation = 2 rsCollections.LockType = 1 rsCollections.Open() %> <% Dim rsCartTotals__MMColParam rsCartTotals__MMColParam = "1" If (Session("cartID") <> "") Then rsCartTotals__MMColParam = Session("cartID") End If %> <% Dim rsCartTotals Dim rsCartTotals_numRows Set rsCartTotals = Server.CreateObject("ADODB.Recordset") rsCartTotals.ActiveConnection = MM_conndb_STRING rsCartTotals.Source = "SELECT * FROM tblcartdetails WHERE cartID = '" + Replace(rsCartTotals__MMColParam, "'", "''") + "'" rsCartTotals.CursorType = 0 rsCartTotals.CursorLocation = 2 rsCartTotals.LockType = 1 rsCartTotals.Open() rsCartTotals_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsCartTotals_numRows = rsCartTotals_numRows + Repeat2__numRows %> <% Dim mytotal, mynumber, mydiscount mytotal = 0 mynumber = 0 mydiscount = 0 If Session("discount") <> "" Then mydiscount = Session("discount") End If %> <% While ((Repeat2__numRows <> 0) AND (NOT rsCartTotals.EOF)) %> <% mytotal = CCur(mytotal) + CCur(rsCartTotals.Fields.Item("Quantity").Value)*CCur(rsCartTotals.Fields.Item("Price").Value) mynumber = CCur(mynumber) + CCur(rsCartTotals.Fields.Item("Quantity").Value) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsCartTotals.MoveNext() Wend mytotal = CCur(mytotal) - CCur(mydiscount) %> <% Dim rsAllCollections Dim rsAllCollections_numRows Set rsAllCollections = Server.CreateObject("ADODB.Recordset") rsAllCollections.ActiveConnection = MM_conndb_STRING rsAllCollections.Source = "SELECT distinct(tblcollections.colID), tblcollections.* FROM tblcollections INNER JOIN tblcollectionslink ON tblcollections.colID = tblcollectionslink.colID" rsAllCollections.CursorType = 0 rsAllCollections.CursorLocation = 2 rsAllCollections.LockType = 1 rsAllCollections.Open() rsAllCollections_numRows = 0 %> CrashCarts.com - Privacy Policy
 
 
 
 

 

CRASHCARTS.com PRIVACY POLICY

Crashcarts.com is constantly striving to provide excellent service to you, our customers, while building a long-lasting relationship. To achieve these goals, we occasionally need information about you when you visit our site.

We respect your right to privacy. When you visit our site, you may be providing information to us on two different levels about your visit:

  • Anonymous statistics collected as you browse the site and
  • Personal information you knowingly give us.

We want you to be aware of how we handle this information.

Our Commitment to Your Privacy
 Crashcarts.com would like to assure you that we do not:

  • Collect personal information from you unless you provide it to us.
  • Provide or sell the names and addresses of our customers [site users] to outside vendors--except to our physician partners who may require it to provide AED prescriptions where necessary.
Crashcarts.com does:
  • Safeguard customers' information from unauthorized access.
  • Collect, maintain and use customer information as necessary to provide the most helpful and targeted products and services to meet customers' needs (e.g. customer care or new products or services.)
  • Honor customers' requests to remove their names from our e-mail solicitation lists. (Just contact us).
  • Maintain confidentiality of customer information when undertaking projects with other companies.

Crashcarts.com values your privacy, and we reinforce this belief throughout our organization. Your information will be protected as described.

Information this Site Gathers/Tracks:
As you browse the site, Crashcarts.com's web servers collect information about your visit, not about you personally. Via web server logs, we monitor statistics such as:

  • How many people visit our site
  • Which pages people visit on our site
  • From which domains our visitors come (e.g., "mindspring.net" or "aol.com")
    Which browsers people use to visit our site

While we may gather this information, none of it is associated with you as an individual. We use these statistics to improve our Web site, to monitor its performance, and to make it easier for you and other visitors to use.

If you have any questions about our Privacy Policy, please do not hesitate to contact us today.
 
 
   
<% rsSettings.Close() Set rsSettings = Nothing %> <% rsCategories.Close() Set rsCategories = Nothing %> <% rsCollections.Close() Set rsCollections = Nothing %> <% rsCartTotals.Close() Set rsCartTotals = Nothing %> <% rsAllCollections.Close() Set rsAllCollections = Nothing %>