help convert 2 lines

Mibble

Hello,

I am not sure how to convert 2 lines of code from ASP to PHP.

I have about 80 lines converted, these 2 are throwing me off.

Thanks, John

Dim objHTTP

Set objHTTP = Server.CreateObject("Mabry.HttpXCtl")

Sorry, this thread should be in the Coding section.

pjleonhardt

telling us what these 2 lines do would help..

Mibble

Here is the script, I have all but the two lines, which are under the section:
SEND THE TRANSACTION TO THE PAYSTREAM GATEWAY

Retrieval & Processing Page: paystream.asp

<%
'==========================================================
' VARIABLES TO BE SET BEFORE USING THIS SCRIPT
'==========================================================
rMethod = "SSR2"
rPSID = "DEM" 'rPSID must be set to DEM while using this script for testing!!
TransactionType = "NA"
OrderId = "" '(optional) If you need to set a defined order id, enter it here
CustomerName = request.form("Name")
CustomerAddress = request.form("Address")
CustomerCity = request.form("City")
CustomerState = request.form("State") 'CustomerState MUST be 2 letter abbreviation!!
CustomerZip = request.form("Zip")
CustomerAccount = request.form("Account") 'Customer's credit card number
CustomerExpDate = request.form("ExpDate") 'Customer's credit card expiration date
CustomerCVV = request.form("CVV") 'Customer's card verification value (optional)
CustomerEmail = request.form("Email") 'Customer's email address (optional)
TransactionDescription = request.form("Description") 'Description of the purchase (optional)
TransactionAmount = request.form("Amount") 'Total amount to be billed to credit card

'==========================================================
' THE FOLLOWING LINES CAN REMAIN UNCHANGED AS LONG AS YOU
' DID NOT CHANGE THE VARIABLE NAMES ABOVE
'==========================================================
ReqBody = "rMethod=" & rMethod & "&rPSID=" & rPSID & "&TranType=" & TransactionType & "&OrderId=" & server.urlencode(OrderId)
ReqBody = ReqBody & "&CustomerName=" & server.urlencode(CustomerName) & "&CustomerAddress=" & server.urlencode(CustomerAddress)
ReqBody = ReqBody & "&CustomerCity=" & server.urlencode(CustomerCity) & "&CustomerState=" & CustomerState
ReqBody = ReqBody & "&CustomerZip=" & server.urlencode(CustomerZip) & "&CustomerAccount=" & CustomerAccount
ReqBody = ReqBody & "&CustomerExpDate=" & CustomerExpDate & "&CustomerEmail=" & server.urlencode(CustomerEmail)
ReqBody = ReqBody & "&CustomerCVV=" & CustomerCVV & "&TransactionDescription=" & server.urlencode(TransactionDescription)
ReqBody = ReqBody & "&TransactionAmount=" & TransactionAmount

'==============================================
' SEND THE TRANSACTION TO THE PAYSTREAM GATEWAY
' NO NEED TO CHANGE ANY OF THIS...
'==============================================
Dim objHTTP
Set objHTTP = Server.CreateObject("Mabry.HttpXCtl")
objHTTP.Blocking = True
objHTTP.BlockingMode = 1
objHTTP.URL = "https://secure.paystream.net/v2/process/process.asp?"
objHTTP.Request.Headers("Content-Type") = "application/x-www-form-urlencoded"
objHTTP.Request.Body = ReqBody
objHTTP.Post

'==========================================
'RETRIEVE THE RESPONSE AND SET TO VARIABLES
'==========================================
strResp = objHTTP.Response.Body
aryResponse = Split(strResp,",")
if UBound(aryResponse) = 8 then
ResponseCode = aryResponse(0)
ResponseText = aryResponse(1)
AVSCode = aryResponse(2)
ApprovalCode = aryResponse(3)
ReturnedOrderId = aryResponse(4)
SequenceNumber = aryResponse(5)
BatchNumber = aryResponse(6)
TransactionTime = aryResponse(7)
TransactionDate = aryResponse(8)
else
ResponseCode = "XX"
ResponseText = "An error has occurred while processing your request. Please try again later."
end if
aryResponse = ""
set objHTTP = nothing

'========================================================
' DISPLAY THE RESULTS OF THE TRANSACTION
' ResponseCode = 00 is Approved, all else is Declined
'======================================================== %>
ResponseCode= <%= ResponseCode %> 
ResponseText= <%= ResponseText %> 
AVSCode= <%= AVSCode %> 
ApprovalCode= <%= ApprovalCode %> 
ReturnedOrderId= <%= ReturnedOrderId %> 
SequenceNumber= <%= SequenceNumber %> 
BatchNumber= <%= BatchNumber %> 
TransactionTime= <%= TransactionTime %> 
TransactionDate= <%= TransactionDate %>

END SAMPLE CODE
Dim objHTTP

sarahk

You haven't had a quick reply so that means this is tricky.

What does the object do? Does it call other websites or something else.

Chances are you need to approach the problem differently so if you could explain the problem in words we might be able to help.

Weedpacket

Fact is, all the work is being done by that object. My guess the translation would either involve rewriting the relevant functionality of that object, or using the [man]COM[/man] functions.

Mibble

yes, it has me stumped. what the code is, an asp gateway to paystream.net and when executed, for approval or authorization or denial of credit card payments. my application needs it to be php, and i have converted all except those 2 lines.
During testing, they have a 'virtual terminal' whereby you can go to https://secure.paystream.net/default.asp and make sure your transaction went thru their gateway and get the status. Once you have tested everything that way, then can switch to the live account number they assign and off and making money on the internet via ecommerce. I do have the software development kit, (which has only asptear or the code i posted above) along with forms. example is at www.carouselcorner.org/form.php which once submitting, it goes through to paystream.php and you can see the response given, meaning those 2 lines not being in the code i have translated isnt working. it does send the right info up to that point though.

Thanks,

John