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

CRASHCARTS.com SUPPLIERS

Does your company provide a product or service that you think would be an excellent addition to CrashCarts.com? Or would you like to present a bid on the opportunity to become the supplier of any of the products we currently offer? If so, please contact us using the form below. CrashCarts.com is always interested in discovering new ways to better serve our clients and customers.

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:
*Address
* C, S, Zip
*Website:
*E-mail:
Phone:
*Please provide us with a brief description of your company and the product(s) and/or service(s) you would like to provide:


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