Satin Rattail Cord

<% ' 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:",_ "satinrattail.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 %> Satin Rattail Cord

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-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:

Bolek's

Craft Supplys

2mm Premium Satin Rattail Cord

Softer material and more vibrant colors.

100 Yard Spool.....$7.00

10 Yard Hank.....$1.30

#PRT01 - Wine #PRT09 - Medium Brown

#PRT02 - Christmas Red #PRT10 - Purple

#PRT03 - White #PRT13 - Yellow

#PRT04 - Black #PRT14 - Grey

#PRT06 - Royal Blue #PRT15 - Dark Brown

#PRT07 - Christmas Green #PRT16 - Beige

#PRT08 - Hunter Green

Lanyard Snap Hook

3/4"

#JF153-Silver-----24 per package----------$1.00

#JF153B-Silver-----144 per package----------$3.50

Split Key Rings

Gold or Silver

Measured by outside diameter

Item #

Size

Count

Price

#JF050

24mm

8 pieces

$ .60

#JF050B

24mm

144 pieces

$5.50

#JF051

28mm

6 pieces

$ .60

#JF051B

28mm

144 pieces

$7.50

#JF052

32mm

4 pieces

$ .60

#JF052B

32mm

144 pieces

$8.00