<% Content = "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & "" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
  Lotus Music
PO Box 2138
Bondi Junction, 1355
ABN: 801834723398
TAX RECEIPT
" Content = Content & "


Dear " & Session("frm_First") & " " & Session("frm_Last") & ",
" Content = Content & "
Thank you for your purchase from Peter Dickson.com!
We will do our best to ensure a speedy and safe delivery of your product.
" Content = Content & "
For any futher queries dont hessitate to contact us via email at info@peterdickson.com
" Content = Content & "
Regards,
Peter Dickson

" Content = Content & "

Please print or save a copy of this email for your taxation & proof or purchase purposes.

" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "

" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
DATE: " & Day(Date) & "/" & Month(Date) & "/" & Year(Date) & "ORDER NUMBER: " & Request("Invoice") & "PAYMENT: Credit Card

" Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " If Session("frm_ShippingSame") = "checkbox" Then Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Else Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " End If Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Cart_Count = 0 Cart_Total = 0 Total_Qty = 0 For Each x In Session.Contents If IsNumeric(x) Then Cart_Count = 1 Set cn = Server.CreateObject("ADODB.Connection") openStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/ifunklive.mdb") cn.open openStr SQL = "SELECT * FROM Products WHERE ProductID = " & x Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 2, 2 ProductID = Request("ProductID") SQL = "SELECT * FROM Products WHERE ProductID = " & x Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 2, 2 Price = rs("Price") Qty = Session(x) Total_Qty = Total_Qty + Qty Cost = Price * Qty Cart_Count = Cart_Count + Session(x) Cart_Total = Cart_Total + Cost Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " rs.Close Set rs = Nothing Set cn = Nothing End If Next Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & " " Content = Content & "
SOLD TO CUSTOMER
" & Session("frm_First") & " " & Session("frm_Last") & "
" & Session("frm_Address") & "
" Content = Content & Session("frm_Suburb") & "
" Content = Content & Session("frm_City") & ", " & Session("frm_Postcode") & "
" Content = Content & Session("frm_State") & ", " & Session("frm_Country") & "
 
SHIP TO CUSTOMER
" & Session("frm_First") & " " & Session("frm_Last") & "
" & Session("frm_Address") & "
" Content = Content & Session("frm_Suburb") & "
" Content = Content & Session("frm_City") & ", " & Session("frm_Postcode") & "
" Content = Content & Session("frm_State") & ", " & Session("frm_Country") & "
 
" Content = Content & Session("frm_First") & " " & Session("frm_Last") & "
" Content = Content & Session("Ship_Address") & "
" Content = Content & Session("Ship_Suburb") & "
" Content = Content & Session("Ship_City") & ", " & Session("Ship_Postcode") & "
" Content = Content & Session("Ship_State") & ", " & Session("Ship_Country") & "
" Content = Content & "
 
SHIPPING METHOD: " If Session("frm_ShippingSame") = "checkbox" Then Postage_Location = Session("frm_Country") Else Postage_Location = Session("Ship_Country") End If If Postage_Location = "Australia" Then Postage_Type = "Standard [Australia Registed Post]" PostageID = 1 Else Postage_Type = "[International Post]" PostageID = 3 End If Content = Content & Postage_Type Content = Content & "

" Content = Content & " Your Order Summary
   
" Content = Content & "
" Content = Content & "
" Content = Content & "
Items
Unit Cost
Qty
Price

" Content = Content & "
" Content = Content & "

" & rs("Title") & "

" Content = Content & "
" & FormatCurrency(Price, 2) & "
" & Qty & "
" & FormatCurrency(Cost, 2) & "

" Content = Content & "
Sub Total:
" & FormatCurrency(Cart_Total, 2) & "
Shipping " Content = Content & " Costs (Standard Shipping):
" Set cn = Server.CreateObject("ADODB.Connection") openStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/ifunklive.mdb") cn.open openStr SQL = "SELECT * FROM Postage WHERE ID = " & PostageID Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 2, 2 Postage_Price = rs("Price") If Total_Qty > 1 Then New_Price = Postage_Price + ((Total_Qty - 1) * rs("Increment")) Else New_Price = Postage_Price End If Content = Content & FormatCurrency(New_Price, 2) Total_Price = Cart_Total + New_Price TotalIncGST = Total_Price * 1.1 Content = Content & "
Total:
" & FormatCurrency(Total_Price, 2) & "

 
All " Content = Content & " Rights Reserved © Peter Dickson
" Content = Content & "" Content = Content & "" %>
<% =Content %>