Buongiorno
sto implementando Gestapay sul mio sito
Ho inserito i parametri richiesti per fare un test con account prova
ma mi da errore questo è lo script
questo è l'errorecodice:<% Dim XML_SendData Dim CryptString 'XML data 'all the commented nodes are optional, remove the comments if you need to send those XML_SendData = "<?xml version=""1.0"" encoding=""utf-8""?>" XML_SendData = XML_SendData & "<soap12:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap12=""http://www.w3.org/2003/05/soap-envelope"">" XML_SendData = XML_SendData & " <soap12:Body>" XML_SendData = XML_SendData & " <Encrypt xmlns=""https://ecomm.sella.it/"">" XML_SendData = XML_SendData & " <shopLogin>GESPAY12345</shopLogin>" 'your Merchant code ex. GesPayXXXXXXX XML_SendData = XML_SendData & " <uicCode>242/uicCode>" 'Currency code ex. 242 for Euro XML_SendData = XML_SendData & " <amount><'%=tot%'></amount>" 'the amount ex. 0.05 'XML_SendData = XML_SendData & " <shopTransactionId>string</shopTransactionId>" 'your ShopTransactionID 'XML_SendData = XML_SendData & " <cardNumber>string</cardNumber>" 'XML_SendData = XML_SendData & " <expiryMonth>string</expiryMonth>" 'XML_SendData = XML_SendData & " <expiryYear>string</expiryYear>" 'XML_SendData = XML_SendData & " <buyerName>string</buyerName>" 'XML_SendData = XML_SendData & " <buyerEmail>string</buyerEmail>" 'XML_SendData = XML_SendData & " <languageId>string</languageId>" 'XML_SendData = XML_SendData & " <cvv>string</cvv>" 'XML_SendData = XML_SendData & " <customInfo>string</customInfo>" XML_SendData = XML_SendData & " </Encrypt>" XML_SendData = XML_SendData & " </soap12:Body>" XML_SendData = XML_SendData & "</soap12:Envelope>" Set xmlHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") Set xmlDoc = Server.CreateObject("MSXML2.DOMDocument") 'Production code xmlHTTP.open "POST", "https://testecomm.sella.it/gestpay/gestpayws/WSCryptDecrypt.asmx", false xmlHTTP.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8" xmlHTTP.send XML_SendData strStatus = xmlHTTP.Status strRetval = xmlHTTP.responseText xmlDoc.loadxml(xmlHTTP.responseText) TransactionType= xmlDoc.getElementsByTagName("TransactionType").item(0).text TransactionResult= xmlDoc.getElementsByTagName("TransactionResult").item(0).text ErrorCode= xmlDoc.getElementsByTagName("ErrorCode").item(0).text ErrorDescription= xmlDoc.getElementsByTagName("ErrorDescription").item(0).text if ErrorCode = 0 then EncryptedString = xmlDoc.getElementsByTagName("CryptDecryptString").item(0).text end if Set xmlHTTP = nothing Set xmlDoc = nothing if ErrorCode = 0 then %> <form action="https://testecomm.sella.it/gestpay/Pagam.asp"> <! for test codes change action to testecomm.sella.it > <input type="hidden" name="a" value="<=GESPAY12345>"> <input type="hidden" name="b" value="<%=EncryptedString%>"> <input type="submit" name="Submit" value="Accedi alla pagina di pagamento"> </form> <%else %> <h3>An Error has occurred:</h3> <% response.write "ErrorCode: " & ErrorCode & "<br>" response.write "ErrorDescription: " & ErrorDescription & "<br>" end if%> decryp <% 'Decript Dim EncString 'Encrypted string to decrypt EncString = request("b") ShopLogin = request("a") 'Decript
Microsoft VBScript runtime error '800a01a8'
Object required: 'xmlDoc.getElementsByTagName(...).item(...)'
/esempio.asp, line 42
questa è òa stringa
TransactionType= xmlDoc.getElementsByTagName("TransactionType").ite m(0).text
Grazie