<% ' 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 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:",_ "catalogreq.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 %> Catalog Request

"We sell the good stuff"

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.

New Hours

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

Glossary          On-line Ordering          Catalog Request


 
                  

                         

BOLEK'S Craft Supplys Catalog

Attn:  Customers who live out of the U.S.A. ONLY!

Due to the rising cost of postage, Bolek's Craft Supplys, can no longer ship free catalogs out of the USA.  If you are requesting a catalog to an address OUTSIDE of the USA, you can place an order for a catalog using a Visa, Master Card or Discover.  The cost is $5.00 which covers shipping charges.  Thank you.

When requesting a catalog please make sure you give us the following information:

Catalogs take approximately 3-4 weeks to receive

 

Our Summer 2005 Flyer Starts Now July 6, 2005

  • 1.  Name

  • 2.  Mailing Address

  • 3.  City

  • 4.  State

  • 5.  Zip Code

  • 6.  E-Mail Address

E-Mail Catalog Requests to Boleks@tusco.net

 

Thank you.

Send mail to info@craftybubbles.com with questions or comments about this web site.
Copyright 1997 Crafty Bubbles
Last modified: August 31, 2010