<%@ LANGUAGE="VBScript.Encode" %> <% order = Session("orderid") 'GET TYPE OF TAX LABEL Set TaxObj = New CTax taxlabel = TaxObj.getLabel() Set TaxObj = Nothing 'GET Tax Rates Set TaxObj = New CTax TaxRate = TaxObj.getTaxRate() Set TaxObj = Nothing 'WRITE STUFF to Database SQLStmt = "SELECT * FROM AllOrders " SQLStmt = SQLStmt & "WHERE Order.Orderid=" & order & "; " Set SimpleAdo = New CSimpleAdo SimpleAdo.setConnectionString = Session("ConnectionString") Set RS = SimpleAdo.getRecordSet(SQLStmt) %> GemOptions Jewelry mail in orders.
Make money order payable to:
 "
GemOptions Jewelry" & mail to:

 GemOptions Jewelry
 24 G West Main St, PMB 220
 Clinton,
CT. 06413-2090 USA
GemOptions Jewelry.
Printable Mail In/Fax In Form.
www.gemoptions.com
Our Fax #


Close Form

<% CurrentRecord = 0 Do While CheckRS(RS) 'get initial variables subtotal = RS("subtotal") shipcost = RS("shipcost") If CurrentRecord = 0 Then %>

S
H
I
P

T
O

Name: Company:
Address line 1:
Address line 2:
City: State: Zip: 
Country: Phone: Fax: 
email address:

For us to send your confirmation and schedule.
B
I
L
L

T
O

Name: Company:
Address line 1:
Address line 2:
City: State: Zip: 
Country: Phone: Fax: 
email address:

PAYMENT INFORMATION (only if paying with credit card).

Card Type:

Card Number: Expiration Date: CSS Code:
Last 3 or 4 digits on card back.
Items Ordered
<% End If ThePrice = RS("Price") * RS("Quantity") grandtotal = grandtotal + ThePrice %> <% If RS("Taxed") = "Yes" or RS("Taxed2") = "Yes" Then 'item is taxed 'GET Tax Amounts Set TaxObj = New CTax showtaxes = TaxObj.getTaxAmounts(TaxRate,RS("Taxed"),RS("Taxed2"),ThePrice) Set TaxObj = Nothing Else showtaxes = 0 'item is not taxed, make the taxes 0 End If subtaxes = subtaxes + showtaxes 'get a running total of the taxes %> <% If CSng(RS("ExtraTax")) > 0 Then showtaxes = ThePrice * (RS("ExtraTax")/100) subtaxes = subtaxes + showtaxes 'get a running total of the taxes End If %> <% RS.MoveNext CurrentRecord = CurrentRecord + 1 Loop %>
ITEM # DESCRIPTION QUANTITY <%= taxlabel%>PRICE EACH TOTAL
<%= RS("Item") %>  <%= RS("Description") %>   <%= MyCurrency(CCur(RS("RawPrice"))) %>  <%= MyCurrency(showtaxes)%>  <%= MyCurrency(showtaxes)%> 
         
         
         
         
         
         
         
  Notes: Sub Total:  
Shipping Charge:
$5.65 min. 
 
6% Tax (St/Ct only):  
Grand Total:  
Thank you. We look forward to serving you again at www.gemoptions.com
<% Set SimpleAdo = Nothing Set RS = Nothing %>