<% 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"bsent.asp" Set mail = Nothing sendMail = True End If %>


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 skilled
representatives will be glad to assist you.
Please call 561-889-1516 or 561-628-5678