🚀 go-pugleaf

Bart:

>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 = 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
>
> 'Post string naar Abssys
> Inet1.URL = strSite & "?" & StrQuery

dit is een GET formaat, geen post.

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

je maakt in ncresponse een xml-parser aan.
je gebruikt daarna een (voorzover ik het kan zien) ongeinitialiseerde
variabele alsof het de aangemaakte xml-parser is om hem te vullen met
een ongeinitialiseerde variabel.

> getNodeValue(tagName)

get node value? tagName (weer ongeinitialiseerd)?

>  Dim ret
>   ret = ""
>   Set items = XMLObj.getElementsByTagName(tagName)

waar is je xpath expressie? wat is XMLObj in ghoddess naam?

>   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

ik geef op..

>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 ?

probeer te begrijpen wat je knipt en plakt..

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