<% 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: " & REMOTE_TIME & vbcrlf Subject = "OMP Billing Info" ToAddress = "info@one-marketplace.com" 'ToAddress = "info@one-marketplace.com" FromAddress = Email Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). Const cdoAnonymous = 0 'Do not authenticate Const cdoBasic = 1 'basic (clear-text) authentication Const cdoNTLM = 2 'NTLM Dim myMail Set myMail=Server.CreateObject("CDO.Message") '==This section provides the configuration information for the remote SMTP server. MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "forms@one-marketplace.com" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "forms123forms" MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MyMail.Configuration.Fields.Update '==End remote SMTP server configuration section== myMail.From=FromAddress myMail.ReplyTo=email myMail.To= ToAddress myMail.Subject=Subject myMail.textBody=Body myMail.Send Response.Redirect"http://www.one-marketplace.com/paymentsent.asp?total=" & Request.Querystring & (Total) 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 non-refundable, you have read and understand our terms of service
 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 = CStr(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:  <% Response.Write(Total) %>
If there is no amount above you will be billed the quoted amount.
ALL SALES ARE FINAL - ALL PAYMENTS/DEPOSITS ARE NON-REFUNDABLE - TOS ARE ACCEPTED