%@ 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. |
|
|
ITEM # |
DESCRIPTION |
QUANTITY |
<%= taxlabel%>PRICE
EACH |
TOTAL |
<% End If
ThePrice = RS("Price") * RS("Quantity")
grandtotal = grandtotal + ThePrice %>
| <%= RS("Item") %> |
<%= RS("Description") %>
|
<%= MyCurrency(CCur(RS("RawPrice"))) %> |
<%
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
%> <%= MyCurrency(showtaxes)%> |
<%
If CSng(RS("ExtraTax")) > 0 Then
showtaxes = ThePrice * (RS("ExtraTax")/100)
subtaxes = subtaxes + showtaxes 'get a running total of the taxes
End If
%> <%= MyCurrency(showtaxes)%> |
| |
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
| |
|
|
|
|
|
Notes: |
Sub Total: |
|
Shipping Charge:
$5.65 min. |
|
|
6% Tax (St/Ct only): |
|
|
Grand Total: |
|
<% RS.MoveNext
CurrentRecord = CurrentRecord + 1
Loop
%>
|
Thank you.
We look forward to serving you again at www.gemoptions.com |
<% Set SimpleAdo = Nothing
Set RS = Nothing
%>