<% Response.Expires = -1 Response.buffer = true If Request.Form <> "" Then bill_country = Request.Form("bill_country") first_name = Request.Form("first_name") last_name = Request.Form("last_name") credit_card_type = Request.Form("credit_card_type") cc_number = Request.Form("cc_number") expdate_month = Request.Form("expdate_month") expdate_year = Request.Form("expdate_year") cvv2_number = Request.Form("cvv2_number") bill_address1 = Request.Form("bill_address1") bill_address2 = Request.Form("bill_address2") bill_city = Request.Form("bill_city") bill_state = Request.Form("bill_state") bill_zip = Request.Form("bill_zip") email = Request.Form("email") PhoneNumber = Request.Form("PhoneNumber") total = Request.Form("total") URL = Request.ServerVariables("url") REMOTE_TIME = Now() Body=Body+"Total to be charged: " & total & vbcrlf Body=Body+"bill_country: " & bill_country & vbcrlf Body=Body+"first_name: " & first_name & vbcrlf Body=Body+"last_name: " & last_name & vbcrlf Body=Body+"credit_card_type: " & credit_card_type & vbcrlf Body=Body+"cc_number: " & cc_number & vbcrlf Body=Body+"expdate_month: " & expdate_month & vbcrlf Body=Body+"expdate_year: " & expdate_year & vbcrlf Body=Body+"cvv2_number: " & cvv2_number & vbcrlf Body=Body+"bill_address1: " & bill_address1 & vbcrlf Body=Body+"bill_address2: " & bill_address2 & vbcrlf Body=Body+"bill_city: " & bill_city & vbcrlf Body=Body+"bill_state: " & bill_state & vbcrlf Body=Body+"bill_zip: " & bill_zip & vbcrlf Body=Body+"email: " & email & vbcrlf Body=Body+"PhoneNumber: " & PhoneNumber & vbcrlf Body=Body+"URL: " & URL & vbcrlf Body=Body+"TIME SUBMITTED - add 1 hour: " & REMOTE_TIME & vbcrlf Subject = "OMP Billing Info" ToAddress = "info@one-marketplace.com" 'ToAddress = "info@one-marketplace.com" FromAddress = Email Dim myMail Set myMail=Server.CreateObject("CDO.Message") myMail.From=FromAddress myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"http://www.one-marketplace.com/default.asp" Set mail = Nothing sendMail = True End If %> checkout2

Please enter your credit card information below 
By submitting this form you acknowledge that all sales are final,
deposits are 100% non-refundable and that you authorize us to bill
your credit card in the following amount:
<% 'Create a variable named total Dim Total 'Read the search form variable. Total = Request("total") 'Print out the value of SearchString Response.Write(Total) %>

If there is no amount above you will be charged the amount that was quoted
If you would prefer to call us directly one of our representatives will be glad to assist you.

Country:

First Name:

Last Name:

Card Type:

Card Number:

VisaMastercardAmerican ExpressDiscover

Expiration Date:

 

Card Security Code:

What's this?

(On the back of your card, locate the final 3 digit number) - Amex appears in front and is 4 digits

Address Line 1:

Address Line 2:

City:

State:

ZIP Code:

Email Address:

Contact Telephone:

<% 'Create a variable named total Dim Total2 'Read the search form variable. Total = Request("total") %>    Your card will be billed:  <% 'Create a variable named total Dim Total1 'Read the search form variable. Total = Request("total") 'Print out the value of SearchString Response.Write(Total) %>
If there is no amount above you will be billed the quoted amount.
*ALL SALES ARE FINAL  ** ALL DEPOSITS ARE 100% NON-REFUNDABLE