🚀 go-pugleaf

Bart:

>Klopt de rest van de code anders ?

neuh..

<%

'dit stuk neem ik wel voor lief

> 'variabelen
> Dim OrderId, PSPID, PSWD, Amount, CN, BRAND, CARDNO, ED, email
>
> 'waarde toekennen aan variabele
> OrderId = iOrderID
> PSPID = 11111111
> PSWD = 22222222
> Amount = FormatCurrency(cDbl(sTotalPrice) + cDbl(sHandling) +
>cDbl(sShipping) + cDbl(iSTax) + cDbl(iCTax) + cDbl(iCodAmount),0) * 100
> CN = CardName
> BRAND = CardType
> CARDNO = CardNumber
> ED = CardExpiryMonth & "/" & CardExpiryYear
> email = sCustEmail
>
> 'string opmaken om te versturen
> strSite = "https://www.abssys.be/ncol/TEST/Orderdirect.asp"
>
> strQuery = "OrderID=" & OrderId & "&PSPID=" & PSPID & "&PSWD=" & PSWD &
>"&amount=" & Amount & "&currency=BEF&CN=" & CN & "&BRAND=" & BRAND &
>"&CARDNO=" & CARDNO & "&ED=" & ED & "&email=" & email

Dim xmlhttp, xmlresponse

Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")

xmlhttp.open "POST", strSite, false
xmlhttp.send strQuery

Set xmlresponse = xmlhttp.responseXML

If xmlresponse.selectSingleNode("/ncresponse/@STATUS").text == "9"
  Response.Redirect "succeeded.asp"
Else
  Response.Redirect "failed.asp"
EndIf

%>

en niet gaan zeuren als het niet meteen werkt..
 
http://msdn.microsoft.com/library/en-us/xmlsdk30/htm/xmobjxmlhttprequest.asp

groetjes, su.
-- 
ach wat, een paar nodes meer of minder..
wat is nou een petaflop?