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-listing23.txt / txt



  Function ErrorXML(sFaultCode, sSubvalue, sReason, sErrorCode, sMessage)
     Dim sXML
     
     sXML = "<env:Envelope xmlns:env="
     sXML = sXML & "'http://schemas.xmlsoap.org/soap/envelope/'>"
     sXML = sXML & vbNewLine & "<env:Body>" & vbNewLine
     sXML = sXML & "<env:Fault>" & vbNewLine
     sXML = sXML & "  <env:Code>" & vbNewLine
     sXML = sXML & "    <env:Value>env:"&sFaultCode&"</env:Value>" & vbNewLine
     sXML = sXML & "    <env:Subcode>" & vbNewLine
     sXML = sXML & "      <env:Value>"&sSubvalue&"</env:Value>" & vbNewLine
     sXML = sXML & "    </env:Subcode>" & vbNewLine
     sXML = sXML & "  </env:Code>" & vbNewLine
     sXML = sXML & "  <env:Reason>" & vbNewLine
     sXML = sXML & "    <env:Text>"&sReason&"</env:Text>" & vbNewLine
     sXML = sXML & "  </env:Reason>" & vbNewLine
     sXML = sXML & "  <env:Detail>" & vbNewLine
     sXML = sXML & "    <o:orderFaultInfo "
     sXML = sXML & "    xmlns:o='http://www.sernaferna.com/soap/ordersystem'>" 
     sXML = sXML & vbNewLine
     sXML = sXML & "      <o:errorCode>"&sErrorCode&"</o:errorCode>" & vbNewLine
     sXML = sXML & "      <o:message>"&sMessage&"</o:message>" & vbNewLine
     sXML = sXML & "    </o:orderFaultInfo>" & vbNewLine
     sXML = sXML & "  </env:Detail>" & vbNewLine   
     sXML = sXML & "</env:Fault>" & vbNewLine
     sXML = sXML & "</env:Body>" & vbNewLine
     sXML = sXML & "</env:Envelope>"        
     ErrorXML = 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.