Box Flyer (page 1 & 2)

<% ' 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:",_ "box_flyer_1_2.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 %> Box Flyer (page 1 & 2)

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 $8.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

Customer Service:

Click Here

Home

Ordering & Shipping

Order Form

Search

We Accept:

Shipping Methods:

Bolek's

Craft Supplys

"NEW SIZE PACKAGE COUNT"

Made in USA

#100 - 6mm Faceted Beads 72 Beads $ .60

#101 - 8mm Faceted Beads 72 Beads $ .60

#118 - 10mm Faceted Beads 24 Beads $ .60

#119 - 12mm Faceted Beads 24 Beads $ .60

#102 - 11mm Tri Beads 72 Beads $ .60

#N955 - Oval Beads 12 Beads $ .60

"Shiny" Gold Safety Pins

by popular demand.

We now stock Shiny Gold Safety Pins. Made in the USA. These pins are constructed with the highest quality steel. Nickel plated then brass plated and coated with lacquer to give these pins a shiny finish. The lacquer coating makes these pins tarnish resistant.

#JF450
size #00 (3/4") 20 pins per bag $ .60

#JF451 size #0 (7/8") 20 pins per bag $ .60

#JF452 size #1 (1 1/16") 18 pins per bag $ .60

#JF453 size #2 (1 1/2") 16 pins per bag $ .60

#JF454 size #3 (2") 12 pins per bag $ .60

#JF455 size #4 (2 1/4") 10 pins per bag $ .60

#JF456 size #5 (3") 6 pins per bag $ .60