🚀 go-pugleaf

"zussie"...
<knip>

werkt om de ��n of andere reden niet.

Kheb ondertussen gezien dat in StoreFront een bestand zit die de transacties
regelt.  De transactiemethodes van 17 Amerikaanse bedrijven staat daarin.
Ik heb een functie toegevoegd voor Abssys.  Dit is de code:

Function Abssys

 'variabelen
 Dim OrderId, PSPID, PSWD, Amount, CN, BRAND, CARDNO, ED, email

 'waarde toekennen aan variabele
 OrderId = iOrderID
 PSPID = global
 PSWD = azerty
 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

 'Post string naar Abssys
 Inet1.URL = strSite & "?" & StrQuery

 'Response van Abssys
 Set ncresponse = CreateObject("MSXML.DOMDocument")
  strAntwoord = xmlResponse.loadXML(strInsert)

 getNodeValue(tagName)
  Dim ret
   ret = ""
   Set items = XMLObj.getElementsByTagName(tagName)
   If items.length > 0 Then
    ret = items.Item(0).Text
    Else: Text =""
   End If
   getNodeValue = ret

 If getNodeValue("STATUS") = "9" Then
  Open.url "confirm.asp"
  Else
   Open.url "fout.asp"
 End if

End Function

Wanneer ik dit test, dan krijg ik wel mijn confirmation pagina maar als ik
dan kijk in mijn account op de site van Abssys dan is daar geen spoor te
bekennen van de betaling.  De controle werkt dus niet en ook de gegevens
blijken niet goed verstuurd te zijn.

Weet iemand raad ?

mvg
Bart
--
Bart Vanwijnsberghe
bart@dataconsult.com
http://www.dataconsult.com