% If Request.Form("Poster") = "true" Then PageLevel = 2 End If PhoneEmailFax = Request.Form("Telephone") & Request.Form("Fax") & Request.Form("Email") If ((Request.Form("Name") = "") Or (Request.Form("Address") = "") Or (Request.Form("City") = "") Or (Request.Form("State") = "") Or (Request.Form("Postal") = "") Or (Request.Form("Country") = "") Or (PhoneEmailFax = "")) And (Request.Form("Poster") = "true") Then PageLevel = 3 End If If Request.Form("Poster") <> "true" Then PageLevel = 1 End If If PageLevel = 2 Then ValleyQty = Request.Form("ValleyQty") DominoQty = Request.Form("DominoQty") If (IsNumeric(ValleyQty) = false) Then ValleyQty = 0 End If If (IsNumeric(DominoQty) = false) Then DominoQty = 0 End If Select Case Request.Form("Currency") Case "UK Pounds" ValleyEach = FormatNumber(4.99, 2) DominoEach = FormatNumber(15.00, 2) ValleyAmount = FormatNumber((ValleyQty * ValleyEach), 2) DominoAmount = FormatNumber((DominoQty * DominoEach), 2) TotalAmount = FormatNumber((CDbl(ValleyAmount) + CDbl(DominoAmount)), 2) CurrencySign = "£" Case "Overseas Pounds" ValleyEach = FormatNumber(5.99, 2) DominoEach = FormatNumber(15.50, 2) ValleyAmount = FormatNumber((ValleyQty * ValleyEach), 2) DominoAmount = FormatNumber((DominoQty * DominoEach), 2) TotalAmount = FormatNumber((CDbl(ValleyAmount) + CDbl(DominoAmount)), 2) CurrencySign = "£" Case "Overseas US Dollars" ValleyEach = FormatNumber(10.00, 2) DominoEach = FormatNumber(25.00, 2) ValleyAmount = FormatNumber((ValleyQty * ValleyEach), 2) DominoAmount = FormatNumber((DominoQty * DominoEach), 2) TotalAmount = FormatNumber((CDbl(ValleyAmount) + CDbl(DominoAmount)), 2) CurrencySign = "$" End Select End If If Request.QueryString("Reset") = "true" Then PageLevel = 1 End If %> <% If (Pagelevel = 1) Then %>
| squeeze cd order form | |
| Please print and send this order form with your cheque or money order payable in the amount of <%= CurrencySign %><%= TotalAmount %> to Quixotic Records, PO Box 12695, London SE10 9ZJ, U.K. Please allow 28 days for delivery. Squeeze's management have asked us to advise that the transactions will be much quicker and easier by money order. |
|
| Name: | <%= Request.Form("Name") %> |
| Address: | <%= Request.Form("Address") %> |
| City: | <%= Request.Form("City") %> |
| State: | <%= Request.Form("State") %> |
| Country: | <%= Request.Form("Country") %> |
| Postal/Zip: | <%= Request.Form("Postal") %> |
| Telephone: | <%= Request.Form("Telephone") %> |
| Fax: | <%= Request.Form("Fax") %> |
| Email: | <%= Request.Form("Email") %> |
| Item | Qty | Each | Total |
| Down in the Valley - CD Single | <%= ValleyQty %> |
<%= CurrencySign %><%= ValleyEach %> | <%= CurrencySign %><%= ValleyAmount %> |
| Domino - Full-length CD | <%= DominoQty %> |
<%= CurrencySign %><%= DominoEach %> | <%= CurrencySign %><%= DominoAmount %> |
| |
Total | <%= CurrencySign %><%= TotalAmount %> | |
| Original Programming by Alexander Deligtisch, www.spliteye.com |
|||