Transactions from a Web server using PHP

Anon

Hi All

I'm setup a trasparent payment processing form using PHP, the to send information to the processing website. there website has documentation for ASP or PERL put they say it should be able to be done with PHP.

I looked at the site and it seems to be a simple code but I'm not that good or never use for that matter ASP. But anyway heres what I want to do I need to send some info to there site to be process credit info now the trick is passing the info with out leaving the host site.

So basiclly I want to send header info over to them so they can parse back the result I then grab this reulst I do what I want Display to the user or insert it into a DB

Here is the ASP Code they use if any one can tell how this can be done in PHP I would grately appreciate it

TIA
RichieTM

Anon

Opps Here the code

Response.Buffer = True
Dim objXMLHTTP, xml

'Create & initialize the XMLHTTP object
Set xml = Server.CreateObject("Microsoft.XMLHTTP")

sRemoteURL = "https://www.eProcessingNetwork.Com/cgi-bin/tdbe/transact.pl"

'Open the connection to the remote server
xml.Open "POST", sRemoteURL, False

'Send the request to the eProcessingNetwork Transparent Database Engine
xml.Send "ePNAccount=05971&CardNo=05971&ExpMonth=10&ExpYear=01" & _
"&Total=12.95&Address=123&Zip=12345&HTML=No"

'store the response
sResponse = xml.responseText

Response.Write "<body>"

'parse the response string and handle appropriately
sApproval = mid(sResponse, 2, 1)

if sApproval = "Y" then
Response.Write "Your transaction has been approved with the " & _
"following response: " & mid(sResponse, 3, 16) & " "

iPosition = instr(sResponse, ",")
if iPosition > 0 then
    iAvsLength = len(sResponse) - iPosition - 2
    Response.Write "AVS Response: <b>" & _
        mid(sResponse, iPosition + 2, iAvsLength) & "</b>"
end if

elseif sApproval = "N" then
Response.Write "Your transaction has been declined with the " &
"following response: " & mid(sResponse, 3, 16) & " "
else
Response.Write "The processor was unable to handle your " &
"transaction, having returned the following response: " & _
sResponse & " "
end if

Response.Write "</body>"

Set xml = Nothing
%>