Sale Flyer (page 3)

<% ' 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:",_ "sale_flyer_3.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 %> Sale Flyer (page 3)

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

Sale Ends August 31, 2008

Safety Pins

Crystal Accents Deco Beads

Water-storing GEL Beads, they look like Glass marbles, feel like jello! Each package makes over 1 1/2 quarts. Use in vases, flower arrangements, centerpieces... Non toxic. Just add water!

$2.50 Per Package

#DB-C Clear	#DB-K Pink
#DB-B Blue	#DB-P Purple
#DB-G Green	#DB-R Red

15mm Berry Beads

These Berry Beads are similar to the ones we carried for years. The difference is these are molded in one piece. Very high quality. All have an Aurora Borealis finish. Can be used in any project calling for 15mm Berry Beads.

#906AB - 15mm Berry Beads

12 Beads.....$1.20

100 Beads.....$6.00

#MT981AB - Multi	#140AB - Transparent Royal Blue
#101AB - Crystal	#154AB - Transparent Red
#121AB - Transparent Lavender	#202AB - Opaque White

Plain Crystal Drops

Vertical Hole

#458 - 144 Beads..........$ .50 Per Bag

Aurora Borealis Heart Beads

Vertical Hole. Crystal Only!

#919AB - 144 Beads..........$1.00 Per Bag

Beaded Bones Buddy Kit

This skeleton kit can be used as an ornament or can sit on a shelf. Easy to make. Made with Opaque White Beads and White Chenille Stems. A Permanent Marker is needed to paint on face.

Kit makes 12 Bones Buddies

#JF521.....$8.50

Large Hexagon Crystal Bead Basket

7" Wide x 5 1/2" Tall. With handle is over 12" Tall. This unique basket can be used as an Easter Basket or can be decorated for any season. Made with Crystal Clear Beads and Silver Safety Pins.

Kit makes 1 Basket

#JF517..........$12.95