% dim rs dim email_to dim email_from dim yearx dim action dim page_data dim total dim company dim name dim email dim address1 dim address2 dim city dim state dim zip dim phone dim found dim foundother dim url dim title dim description dim keywords dim servicelevel dim ppc_campaign dim site_submission dim wd_5 dim wd_10 dim wd_ec dim wd_db dim cctype dim ccnumber dim ccmonth dim ccyear dim MyObject dim payamount dim result_code dim error_code dim country dim email_message ' on error resume next secure_page action = request("action") '-- page data --' set rs = createobject("adodb.recordset") rs.open "select * from pages where page_name='ourresults'",strDSN,3,1 if not rs.eof then page_data = rs("page_data") end if rs.close set rs = nothing '-- submit --' if action = "submit" then company = request.form("company") name = request.form("name") email = request.form("email") address1 = request.form("address1") address2 = request.form("address2") country = request.form("country") city = request.form("city") state = request.form("state") zip = request.form("zip") phone = request.form("phone") found = request.form("found") foundother = request.form("foundother") url = request.form("url") title = request.form("title") description = request.form("description") keywords = request.form("keywords") servicelevel = request.form("servicelevel") ppc_campaign = request.form("ppc_campaign") site_submission = request.form("site_submission") wd_5 = request.form("wd_5") wd_10 = request.form("wd_10") wd_ec = request.form("wd_ec") wd_db = request.form("wd_db") cctype = request.form("cctype") ccnumber = request.form("ccnumber") ccmonth = request.form("ccmonth") ccyear = request.form("ccyear") '-- totals --' total = 0.00 if ppc_campaign = "yes" then total = (total + 75.00) end if if servicelevel = "Gold" then total = (total + 250.00) end if if servicelevel = "Diamond" then total = (total + 500.00) end if if servicelevel = "Platinum" then total = (total + 1000.00) end if if site_submission = "yes" then total = (total + 150.00) end if if wd_5 = "yes" then total = (total + 75.00) end if if wd_10 = "yes" then total = (total + 150.00) end if if wd_ec = "yes" then total = (total + 250.00) end if if wd_db = "yes" then total = (total + 0.00) end if '-- process credit card if amount is there --' if total > 0.00 then ' Testing Number : 5454545454545454 set MyObject = CreateObject("ATS.SecurePost") total = formatcurrency(total,2) total = replace(total,"$","") total = replace(total,".","") MyObject.ATSID = "PNDZV" MyObject.CCName = name MyObject.CCNumber = ccnumber MyObject.ExpMonth = ccmonth MyObject.ExpYear = ccyear MyObject.Amount = total MyObject.RecurBillingCycle = 2 ' 0=none,1=wkly,2=mnthly,3=qtrly,4=semiannual,5=annual,6=14days,7=2years,8=28days' MyObject.RecurStart = "30" 'amount of days between start of cycle' MyObject.RecurAmount = total ' amount of money to start the recurring billing' MyObject.ProcessSale If MyObject.ResultAccepted Then result_code = MyObject.ResultAuthCode error_code = true elseif MyObject.ResultErrorFlag Then result_code = MyObject.LastError error_code = true else result_code = MyObject.ResultAuthCode error_code = false end if if error_code <> true then response.redirect "public_results_pay.asp?action=fail_credit&result_code=" & result_code end if email_to = "dan@im-images.com" email_from = "dan@seoone.com" email_message = "This is an automated email from the SEOOne.com website " &_ "informing you of a online JOIN : " & vbcrlf & vbcrlf &_ "Company Name : " & company & vbcrlf &_ "Your Name : " & name & vbcrlf &_ "Email Address : " & email & vbcrlf &_ "Address 1 : " & address1 & vbcrlf &_ "Address 2 : " & address2 & vbcrlf &_ "City : " & city & vbcrlf &_ "State : " & state & vbcrlf &_ "Zip Code : " & zip & vbcrlf &_ "Country : " & country & vbcrlf &_ "Office Phone : " & phone & vbcrlf & vbcrlf &_ "Found by : " & found & vbcrlf &_ "Found Other : " & foundother & vbcrlf &_ "Website URL : " & url & vbcrlf &_ "Website Title : " & title & vbcrlf &_ "Website Description : " & description & vbcrlf &_ "Website Keywords : " & keywords & vbcrlf &_ "Service Level Selected : " & servicelevel & vbcrlf &_ "PPC Campaign : " & ppc_campaign & vbcrlf &_ "Website Submission : " & site_submission & vbcrlf &_ "5 Page Website : " & wd_5 & vbcrlf &_ "10 Page Website : " & wd_10 & vbcrlf &_ "Ecommerce Website : " & wd_ec & vbcrlf &_ "Database Website : " & wd_db & vbcrlf & vbcrlf &_ "Total Reoccurring Monthly Amount : " & formatcurrency(left(total,len(total)-2),2) send_email email_to,email_from,"New Customer Joined Online",email_message,"","" response.redirect "public_results_pay.asp?action=ok_credit" else email_to = "dan@im-images.com" email_from = "dan@seoone.com" email_message = "This is an automated email from the SEOOne.com website " &_ "informing you of a online JOIN : " & vbcrlf & vbcrlf &_ "Company Name : " & company & vbcrlf &_ "Your Name : " & name & vbcrlf &_ "Email Address : " & email & vbcrlf &_ "Address 1 : " & address1 & vbcrlf &_ "Address 2 : " & address2 & vbcrlf &_ "City : " & city & vbcrlf &_ "State : " & state & vbcrlf &_ "Zip Code : " & zip & vbcrlf &_ "Country : " & country & vbcrlf &_ "Office Phone : " & phone & vbcrlf & vbcrlf &_ "Found by : " & found & vbcrlf &_ "Found Other : " & foundother & vbcrlf &_ "Website URL : " & url & vbcrlf &_ "Website Title : " & title & vbcrlf &_ "Website Description : " & description & vbcrlf &_ "Website Keywords : " & keywords & vbcrlf &_ "Service Level Selected : " & servicelevel & vbcrlf &_ "PPC Campaign : " & ppc_campaign & vbcrlf &_ "Website Submission : " & site_submission & vbcrlf &_ "5 Page Website : " & wd_5 & vbcrlf &_ "10 Page Website : " & wd_10 & vbcrlf &_ "Ecommerce Website : " & wd_ec & vbcrlf &_ "Database Website : " & wd_db & vbcrlf & vbcrlf ' "Total Reoccurring Monthly Amount : " & formatcurrency(left(total,len(total)-2),2) send_email email_to,email_from,"New Customer Joined Online",email_message,"","" response.redirect "public_results_pay.asp?action=ok_credit" end if end if %>
|
|||||||||||