Function SuccessXML(sDiscount, sExtprice)
   Dim sXML
   
   sXML = "<env:Envelope xmlns:env='http://www.w3.org/2003/05/soap-envelope'>"
   sXML = sXML & vbNewLine & "<env:Body>"
   sXML = sXML & vbNewLine & "<o:updateTotalResponse "
   sXML = sXML & "xmlns:o='http://www.sernaferna.com/soap/ordersystem'>"
   sXML = sXML & vbNewLine & "    <o:discount>" & discount & "</o:discount>"
   sXML = sXML & vbNewLine & "    <o:extPrice>" & extPrice & "</o:extPrice>"
   sXML = sXML & vbNewLine & "</o:updateTotalResponse>"
   sXML = sXML & vbNewLine & "</env:Body>"
   sXML = sXML & vbNewLine & "</env:Envelope>"
   
   SuccessXML = sXML
End Function