Pagina 3 di 3 primaprima 1 2 3
Visualizzazione dei risultati da 21 a 22 su 22
  1. #21
    Utente di HTML.it
    Registrato dal
    Feb 2014
    Messaggi
    47
    allora il file me lo ha dato gestpay
    Io ho configurato l' account e inserito nel file i dati richiesti e la variabile che ho modificato come mi hai detto
    qui trovi la documentazione
    http://docs.gestpay.it/

    Grazie per l'aiuto

  2. #22
    Utente di HTML.it
    Registrato dal
    Feb 2014
    Messaggi
    47
    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>"
    
    
    
    
    
    
    %>

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.