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

CrashCarts.com has teamed up with Medical Training Now to provide exceptional medical training, including Equipment Training, CPR and First Aid classes to groups, both large and small. Depending on your needs, we will gladly come to your facility or arrange for a suitable meeting place for your group, as well as provide the materials needed to assure the best possible, most effective training experience for all.

This portion of the site is still under construction. Check back soon. In the meantime, feel free to contact us using the telephone number or the form below.

1-888-989-MEDS

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

E-mail Form

*Name:
*Company:
*E-mail:
*Phone:
Please provide us with a brief description of the training programs in which your organization is most interested:


* Required fields

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