<% ' 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:",_ "bead_kits_page_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 %> Bead Kits (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 $9.00.

Eastern Time Monday - Friday (9:00-5:00) Saturday (9:00-4: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:

As of 03/21/06

Bolek's

Craft Supplys

More Bead Kits Back to Bead Kit Listing

Page 1 Page 2 Page 3 Page 4 Page 5 Page 6 Page 7 Page 8 Page 9 Page 10 Page 11 Page 12 Page 13

Crystal & Lace Lamp Kit

9" Tall: Made with safety pins, plastic beads and wire.

Complete kit with all materials needed including plug in candle lamp.

The beads are Crystal Clear. Easy to follow instruction. Easy to make.

#LP1 - Crystal Beads/White Lace

$14.85 Each Kit

Crystal Lamp Kit

9" Tall: Made with safety pins, plastic beads and wire.

Complete kit with all materials needed including plug in candle lamp.

The beads are Crystal Clear. Easy to follow instructions. Easy to make.

#LP2..........$10.40

"New Exclusive Design"

Lighted Wreath Kit

13" Diameter. Made with plastic beads, safety pins and wire. Green wreath glows green when lit (shown). This item looks great as a sun catcher lit or unlit.

$23.05 Per Kit

#JF526 - Green Beads/Clear Lights

Lighted Green Wreath Pattern

Birthstone Angel Kit

1 1/2" Tall. Makes one Angels for each month. Very easy to make. Easy to follow instructions.