topical media & game development
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

talk show tell print

basic-xml-15-listing14.txt / txt



  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
[] readme course(s) preface I 1 2 II 3 4 III 5 6 7 IV 8 9 10 V 11 12 afterthought(s) appendix reference(s) example(s) resource(s) _

(C) Æliens 20/2/2008

You may not copy or print any of this material without explicit permission of the author or the publisher. In case of other copyright issues, contact the author.