Ho risolto
il problema era loro che sbagliavano a puntare il link
Grazie per l'aiuto
Copio qui il codice funzionante
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>GesPayXXXXXXX</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>60000</shopTransactionId>"
'XML_SendData = XML_SendData & " <cardNumber>"&IDOrdine&"</cardNumber>"
'XML_SendData = XML_SendData & " <expiryMonth>string</expiryMonth>"
'XML_SendData = XML_SendData & " <expiryYear>string</expiryYear>"
'XML_SendData = XML_SendData & " <buyerName>massimiliano</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://ecomms2s.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://ecomm.sella.it/pagam/pagam.aspx">
<! for test codes change action to testecomm.sella.it >
<input type="hidden" name="a" value="GesPayXXXXXXX">
<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
'XML data
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 & " <Decrypt xmlns=""https://ecomm.sella.it/"">"
XML_SendData = XML_SendData & " <shopLogin>"& ShopLogin &"</shopLogin>" 'your Merchant code ex. GesPayXXXXXXX
XML_SendData = XML_SendData & " <CryptedString>"& EncString &"</CryptedString>"
XML_SendData = XML_SendData & " </Decrypt>"
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 codes
' xmlHTTP.open "POST", "https://ecomms2s.sella.it/gestpay/gestpayws/WSCryptDecrypt.asmx", false
'Test codes
xmlHTTP.open "POST", "https://ecomms2s.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
'Debug visualizzazione XML ricevuto in risposta response.write "<hr/>" & server.HTMLENCODE(strRetval) & "<hr/>"
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
ShopTransactionID= xmlDoc.getElementsByTagName("ShopTransactionID").item(0).text
BankTransactionID= xmlDoc.getElementsByTagName("BankTransactionID").item(0).text
AuthorizationCode= xmlDoc.getElementsByTagName("AuthorizationCode").item(0).text
mCurrency= xmlDoc.getElementsByTagName("Currency").item(0).text
Amount= xmlDoc.getElementsByTagName("Amount").item(0).text
Country= xmlDoc.getElementsByTagName("Country").item(0).text
BuyerName= xmlDoc.getElementsByTagName("BuyerName").item(0).text
AlertCode= xmlDoc.getElementsByTagName("AlertCode").item(0).text
AlertDescription= xmlDoc.getElementsByTagName("AlertDescription").item(0).text
VbVRisp= xmlDoc.getElementsByTagName("VbVRisp").item(0).text
TDLevel = xmlDoc.getElementsByTagName("TDLevel").item(0).text
CustomInfo = xmlDoc.getElementsByTagName("customInfo").item(0).text
end if
response.write "TransactionType: " & TransactionType & "<br>"
response.write "TransactionResult: " & TransactionResult & "<br>"
response.write "ShopTransactionID: " & ShopTransactionID & "<br>"
response.write "BankTransactionID: " & BankTransactionID & "<br>"
response.write "AuthorizationCode: " & AuthorizationCode & "<br>"
response.write "Currency: " & mCurrency & "<br>"
response.write "Amount: " & Amount & "<br>"
response.write "Country: " & Country & "<br>"
response.write "BuyerName: " & BuyerName & "<br>"
response.write "ErrorCode: " & ErrorCode & "<br>"
response.write "ErrorDescription: " & ErrorDescription & "<br>"
response.write "AlertCode: " & AlertCode & "<br>"
response.write "AlertDescription: " & AlertDescription & "<br>"
response.write "VbVRisp: " & VbVRisp & "<br>"
response.write "TDLevel: " & TDLevel & "<br>"
%>
'XML data
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 & " <Decrypt xmlns=""https://ecomm.sella.it/"">"
XML_SendData = XML_SendData & " <shopLogin>GesPayXXXXXXX</shopLogin>" 'your Merchant code ex. GesPayXXXXXXX
XML_SendData = XML_SendData & " <CryptedString>"& EncString &"</CryptedString>"
XML_SendData = XML_SendData & " </Decrypt>"
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 codes
' xmlHTTP.open "POST", "https://ecomms2s.sella.it/gestpay/gestpayws/WSCryptDecrypt.asmx", false
'Test codes
xmlHTTP.open "POST", "https://ecomms2s.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
'Debug visualizzazione XML ricevuto in risposta response.write "<hr/>" & server.HTMLENCODE(strRetval) & "<hr/>"
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
ShopTransactionID= xmlDoc.getElementsByTagName("ShopTransactionID").item(0).text
BankTransactionID= xmlDoc.getElementsByTagName("BankTransactionID").item(0).text
AuthorizationCode= xmlDoc.getElementsByTagName("AuthorizationCode").item(0).text
mCurrency= xmlDoc.getElementsByTagName("Currency").item(0).text
Amount= xmlDoc.getElementsByTagName("Amount").item(0).text
Country= xmlDoc.getElementsByTagName("Country").item(0).text
BuyerName= xmlDoc.getElementsByTagName("BuyerName").item(0).text
AlertCode= xmlDoc.getElementsByTagName("AlertCode").item(0).text
AlertDescription= xmlDoc.getElementsByTagName("AlertDescription").item(0).text
VbVRisp= xmlDoc.getElementsByTagName("VbVRisp").item(0).text
TDLevel = xmlDoc.getElementsByTagName("TDLevel").item(0).text
CustomInfo = xmlDoc.getElementsByTagName("customInfo").item(0).text
end if
response.write "TransactionType: " & TransactionType & "<br>"
response.write "TransactionResult: " & TransactionResult & "<br>"
response.write "ShopTransactionID: " & ShopTransactionID & "<br>"
response.write "BankTransactionID: " & BankTransactionID & "<br>"
response.write "AuthorizationCode: " & AuthorizationCode & "<br>"
response.write "Currency: " & mCurrency & "<br>"
response.write "Amount: " & Amount & "<br>"
response.write "Country: " & Country & "<br>"
response.write "BuyerName: " & BuyerName & "<br>"
response.write "ErrorCode: " & ErrorCode & "<br>"
response.write "ErrorDescription: " & ErrorDescription & "<br>"
response.write "AlertCode: " & AlertCode & "<br>"
response.write "AlertDescription: " & AlertDescription & "<br>"
response.write "VbVRisp: " & VbVRisp & "<br>"
response.write "TDLevel: " & TDLevel & "<br>"
%>