<%@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 - Trade-in Program
 
 
 
 

 

TRADE-IN PROGRAM

We will be offering an added incentive to medical facilities to make CrashCarts.com the FIRST and ONLY place you go for all your medical equipment and supply needs. We will offer a discount on new purchases if you have other medical equipment that you can trade in toward that purchase. It doesn't even need to be the same type of equipment you are purchasing! CrashCarts.com will donate these trade-ins to a variety of charitable organizations in an on-going effort to make sure we're sharing our successes with the wider community around us.

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