Originariamente inviata da
ghis65
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
codice:
<%
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
questo è l'errore
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
Rispondi quotando