Ben bezig met ideal te te intregreren in mijn webwinkel
Nu wil ik doormiddel van een SHA1 module een gehashed tekenreeks produceren.
als ik de onderstaande code uitvoer dan krijg ik de melding:
Microsoft VBScript runtime error '800a0046'
Permission denied: 'msgbox'
te zien
Weet iemand toevallig wat ik fout heb gedaan.
Ps.:De code staat op de laatste pagina van het bestel proces
(met google kon ik niets vinden en op de en op de online helpdesk van RIK stond ook niets)
Nu wil ik doormiddel van een SHA1 module een gehashed tekenreeks produceren.
als ik de onderstaande code uitvoer dan krijg ik de melding:
Microsoft VBScript runtime error '800a0046'
Permission denied: 'msgbox'
te zien
Weet iemand toevallig wat ik fout heb gedaan.
Ps.:De code staat op de laatste pagina van het bestel proces
(met google kon ik niets vinden en op de en op de online helpdesk van RIK stond ook niets)
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
| <% ' This code and the used DLClient DLL are given for free, as is and without any guarantee or support by Ogone. set httpobj = createobject("DLClient.HttpsClient") url = "https://i-kassa.rabobank.nl/rik/test/orderstandard.asp" ' Pay attention: amount is always multiplied by 100 for all currencies ==> never decimals ' Pay attention: expdat = MMYY ' Pay attention: valid values for operation are (RES,VEN,RFD). If blank, account config is taken. ' Pay attention: replace /test/ by /prod/ for your production account ' Pay attention: replace PSPID and PSWD in the params string by your relevant data T_orderid="1234" T_amount="1500" T_currency="EUR" params="withroot=1&orderid=" & T_orderid & "&amount=" & T_amount & "¤cy=" & T_currency & "PSPID=MyPSPID&SHASign=Mysecretsig" msgbox(url) msgbox(params) sresult = httpobj.send(url,params) if StrComp(sresult,"KO") <> 0 then msgbox("OK:" & sresult) Else msgbox("Connexion error") End If set httpobj = nothing msgbox("end") %> |