Sale Flyer (old)

<% ' 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:",_ "sale_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 %> Sale Flyer (old)

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

Home

Order Form

Bolek's

Craft Supplys

Glycerine Soap Bars

Transparent. 100% natural vegetable based glycerine soap. Hypo-allergenic, Biodegradable. Great for everyday use.

Scented with Essential Oils.

4 oz. bath bars.....$1.20 Each

1 1/3 oz. facial bars.....$ .70 Each

#SB01 - Unscented/Clear	#SB04 - Spearmint/Transparent Teal
#SB02 - Lavender/Transparent Lavender	#SB05 - Tea Tree/Clear
#SB03 - Peppermint/Transparent Blue

Watch and Matching Bracelet Kit

Fashion Jewelry. High quality Quartz movement. Easy to make! Made with black and silver beads and clear elastic cord. Will fit any size wrist!

Makes 1 Watch and 1 matching Bracelet

#JF499.....$16.45

Watch Movements

Make your own timepieces! Used in our watch kit above. High quality stainless steel with a Japan movement

#WM1..........$5.70 Each

1 oz. Squeeze Bottle

Plastic. Flip Top Cap.

12 Per Bag..........$3.00