Internet Credit Card Merchant Account Processing Application

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsData Dim rsData_numRows Dim MM_ipverificationcnn_STRING MM_ipverificationcnn_STRING = "PROVIDER = MICROSOFT.JET.OLEDB.4.0; DATA SOURCE = D:\Web\___EdataCoreSites\EdataCards.com\app\gathefoutfmp.mdb" remoteIP = Request.ServerVariables("REMOTE_ADDR") Browser = Request.ServerVariables("HTTP_USER_AGENT") BLanguage = Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") currentTime = Now() Set rsData = Server.CreateObject("ADODB.Recordset") rsData.ActiveConnection = MM_ipverificationcnn_STRING rsData.Source = "SELECT Count, IP, StartTime, Status FROM IpList Where IP = '" & remoteIP & "'" rsData.CursorType = 0 rsData.CursorLocation = 2 rsData.LockType = 1 rsData.Open() rsData_numRows = 0 'IPStatus = 1 -- locked 'IPStatus = 0 -- unlocked if not rsData.EOF then ip = rsData.Fields.Item("IP").Value startTime = (rsData.Fields.Item("StartTime").Value) IPstatus = (rsData.Fields.Item("Status").Value) IPCount = (rsData.Fields.Item("Count").Value) if IPStatus = 1 then if DateDiff("n",startTime,currentTime) > 60 then IPStatus = 0 IPCount = 1 startTime = currentTime else response.end end if else if DateDiff("n",startTime,currentTime) < 5 then if IPCount = 19 then IPCount = 20 IPStatus = 1 set updateCMD = Server.CreateObject("ADODB.Command") updateCMD.ActiveConnection = MM_ipverificationcnn_STRING updateCMD.CommandText = "UPDATE IpList SET StartTime = '" & StartTime & "', [Status] = " & IPStatus & ", [Count] = " & IPCount & " where IP = '" & remoteIP & "'" updateCMD.CommandType = 1 updateCMD.CommandTimeout = 0 updateCMD.Prepared = true updateCMD.Execute() response.end else IPCount = IPCount + 1 end if else IPCount = 1 startTime = currentTime end if end if set updateCMD = Server.CreateObject("ADODB.Command") updateCMD.ActiveConnection = MM_ipverificationcnn_STRING updateCMD.CommandText = "UPDATE IpList SET StartTime = '" & StartTime & "', [Status] = " & IPStatus & ", [Count] = " & IPCount & " where IP = '" & remoteIP & "'" updateCMD.CommandType = 1 updateCMD.CommandTimeout = 0 updateCMD.Prepared = true updateCMD.Execute() else set insertCMD = Server.CreateObject("ADODB.Command") insertCMD.ActiveConnection = MM_ipverificationcnn_STRING insertCMD.CommandText = "INSERT INTO IpList (IP, StartTime, [Status], [Count]) VALUES ('" & remoteIP & "', '" & currentTime & "', 0, 1) " insertCMD.CommandType = 1 insertCMD.CommandTimeout = 0 insertCMD.Prepared = true insertCMD.Execute() end if %> Internet Credit Card Merchant Account Processing Application - Edata Cards

<% ' ************************************************************************************ ' DON`T MODIFY START '***************************************************************************************************************** ' Put the url of the image aspx file location and the CGI return path URLS for good form process and error process '***************************************************************************************************************** ImageUrl = "http://edatacards.com/app/security_image.aspx" posturl="http://74.53.165.25/app//allform.cgi" goodurl = "thankyou.html" badurl = "Trylater.html" if Request.Form("flag") <> 1 or isEmpty(Request.Form("flag")) then ' DON`T MODIFY END ' ********************************CAN BE MODIFIED************************************ %> <% ' FORM START HERE %>

Company Information
Title:		Mr. Ms. Dr.
First Name:
Last Name:
Type of Ownership:
Ownership Percentage		%
Is it a Home-Based Business?
Date of Birth (MM/DD/YY):
Contact Name, If Different:
Legal Name of Business:
Doing Business as (DBA):
Company Address

Business Address:
Suite or Apartment #:
City:
State:
ZIP:
Country
If home address is the same as business address, click this box:
Home Address:
Suite or Apartment #:
City:
State:
ZIP:
Country:
Home Phone Number:
Bussiness Phone Number:
Best Phone Number To Reach You:
Fax Number
Email Address:
World Wide Web Address:
Credit Card Sales Information

What Product or Service are you Selling?:		(i.e. I sell flowers)
Estimated Individual Credit Card Sale Amount:	$
Estimated Total Monthly Credit Card Sales:	$
Where Did You Hear About eData?:
Feel Free to Send Us Any Comments You May Have



Enter Code:

<% ' ************************************************************************************ %> <% ' DON`T MODIFY START %> <% else sDataToSend = "" for i = 1 to Request.Form.Count sDataToSend = sDataToSend & Request.Form.Key(i) & "=" & Request.Form.item(i) & "&" next Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") If Err Then response.write """E*Cannot_create_xmlhttp:" & err.description & """" response.end End If err.clear on error resume next objXMLHTTP.open "POST", posturl , False objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXMLHTTP.send Replace(sDataToSend,Chr(13) & Chr(10)," ") if err then response.write(posturl) response.write(sDataToSend) response.end response.write """*Error:" & err.number & ":" & err.description & """" else serverresponce=objXMLHTTP.responseText end if set objXMLHTTP=Nothing if serverresponce = "1" then Response.Redirect(goodurl) end if if serverresponce = "0" then Response.Redirect(badurl) else response.write(serverresponce) end if end if %> <% ' DON`T MODIFY END %> <% ' ******************************CAN BE MODIFIED************************************** %> <% rsData.Close() Set rsData = Nothing %> <% ' *********************************************************************************** %>