Speedscript and PayPal

[c0ry]

I am trying to figure out a way to use paypal to accept credit cards on a site I'm designing. I would like to use thier IPN to update my database tables with the information. I have sample code in VB of how to use IPN, but I don't know if there is an equivelant in Progress. Can anyone help me? Thanks

The vbscript code is:

' read post from PayPal system and add 'cmd'
str = Request.Form
OrderID = Request.Form("item_number" )
Txn_id = Request.Form("txn_id" )
Payment_status = Request.Form("payment_status" )

' post back to PayPal system to validate
str = str & "&cmd=_notify-validate"
set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP" )
objHttp.open "POST", "https://www.paypal.com/cgi-bin/webscr", false
objHttp.Send str

'Check notification validation
if (objHttp.status <> 200 ) then
' HTTP error handling
elseif (objHttp.responseText = "VERIFIED" ) then