Clay Company - Hearty Clay Product Info

<%@ LANGUAGE="VBScript.Encode" %> <% order = Session("orderid") 'READ STUFF From Database Dim objSimpleAdo, rstRS, SQLStmt SQLStmt = "SELECT * From item " SQLStmt = SQLStmt & "WHERE [Orderid] =" & Order & "; " Set SimpleAdo = New CSimpleAdo SimpleAdo.setConnectionString = Session("ConnectionString") Set RS = SimpleAdo.getRecordSet(SQLStmt) 'Do stuff with the record set 'Initialize variables for this application thedate = Cstr(Date) 'get the date thetime = Cstr(Time) 'get the time subtotal = 0 'the subtotal for a row of items subweight = 0 'the subweight for a row of items subsize = 0 'the subsize for a row of items subquantity = 0 'the subquantity for a row of items CurrentRecord = 0 Do While CheckRS(RS) 'Calculate the individual totals for a row subweight = subweight + (RS("Quantity") * RS("Weight")) subsize = subsize + (RS("Quantity") * RS("Size")) subtotal = (RS("Quantity") * RS("Price")) subquantity = subquantity + RS("Quantity") total = FormatCurrency (CCur(subtotal)) grandtotal = grandtotal + subtotal RS.MoveNext Loop Set SimpleAdo = Nothing Set RS = Nothing %> Clay Company - Hearty Clay Product Info

Home

Hearty® Clay

Lumina® Clay

Simple Projects

Hearty® Tips

Hearty® Air Dry clay is super lightweight and air dries to a firm consistency in 24 hours or less. When dried, Hearty® has a soft suede-like feel that is pliable.

	Our Hearty® White is so true white that when mixed with our Hearty® Color Pigments, vibrant and beautiful colors are the results!
	Hearty® Color Pigments used in our primary colors of Hearty® Air Dry clay are faithfully reproduced for consistent color mixing results.

Home