<%@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 - AED Accessories
 
 
 
 

 

CRASHCARTS.com - SPECIAL OFFERS

CrashCarts.com wants you to know that we truly appreciate your business, so we will be offering a variety of promotional items. You will be able to choose one item from this list to receive FREE with every purchase over $1400! The complete list is coming soon! Contact us if you need details right away.

In addition, we will include FREE with any purchase of $5,000 or more, an American Heart Association Basic Life Support (BLS) Class for up to 10 people, in your facility, taught by a certified instructor. Contact us for further details.

And CRASHCARTS.com will ALWAYS provide FREE equipment training for the items you purchase from our site, so that you can maximize the benefit and profit you reap from your investment.

This portion of the site is currently under construction.
Please check back soon!

In the meantime, feel free to contact us with questions or orders

1-888-989-MEDS

(1-888-989-6337)
or local 239-989-8397

Click Here to E-mail Us Now

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