% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(0) Dim arFormDBFields0(0) Dim arFormValues0(0) FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "red_heart.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <%@ 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 %>
|
330 North Tuscarawas Ave. P. O. Box 465 Dover, OH 44622 Orders / Customer Service: 1-800-743-2723 1-330-364-8878 Fax Number: 1-330-343-8009 Fax orders may be sent 24 hours a day 7 days a week or phone in your order: Free Shipping on orders over $100.00 in continental USA Only! Orders under $100.00 add $9.00.
Eastern Time Monday - Friday (9:00-5:00) Saturday (9:00-3:00) Sunday (Closed) E-Mail Address: boleks@tusco.net For Product Information or General Craft Questions Contact: rachel@bolekscrafts.com We Accept:
Shipping Methods:
|
Red Heart® LTD. Foxy
This luxuriously soft fur effect yarn has greater yield than most fur yarns. It works up quickly into beautiful scarves, hats, trims, fashion accessories and more...giving every project superior body. Machine Wash and Dry. Colors: 1.76 oz. (50g.) Ball, Approximately 89 Yards #ARTE724----------$4.80 Per Skein To see a complete color listing for ARTE724, please visit: http://www.coatsandclark.com/NR/rdonlyres/D933D8D8-B532-48F8-A59D-A01C12EF2C01/27171/foxy1.pdf
has been America's favorite brand of crochet thread for more than 40 years. Made of 100% pure cotton in a wide range of colors. Crochet Thread, Bedspread Weight. 3 Ply, 100% Mercerized Cotton White - 400 Yards Ecru & Solid Colors - 350 Yards Shaded Colors - 300 Yards #ARTD54..........$2.50 Per Ball To see a complete color listing for ARTD54, please visit: http://www.coatsandclark.com/NR/rdonlyres/4F032F30-490B-47B1-8DC6-27B933E6E54A/28600/d54.pdf
|