Advantage Finance XML Developer's Site

This example is similar to the Visual Basic 6 one, done in asp.
ASP Code [ASP File]
Dim MyXMLSoapApp
Set MyXMLSoapApp = Server.CreateObject("AdvantageXMLSoapApplication.XMLSoap")
Dim eNumber
Dim eDescription
Dim eSource
Dim MyApplicationID

'open the xml file to send
Dim MyXMLSoapApp
Set MyXMLSoapApp = Server.CreateObject("AdvantageXMLSoapApplication.XMLSoap")
Dim eNumber
Dim eDescription
Dim eSource
Dim MyApplicationID

'open the xml file to send
Dim strXML
Dim f
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Server.MapPath("Sent.xml"), 1, False) '1 = ForReading
strXML = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing
   
With MyXMLSoapApp
	.XML = strXML
	.Url = "https://www.advantage-finance.co.uk/xml/soap/test/TestXMLSoap.asp"
	.SendApplication
	
	eNumber = .ErrorNumber
	eDescription = .ErrorDescription
	eSource = .ErrorSource
End With

If eNumber <> 0 Then
	Response.Write "Error Number: " & "<strong>" & eNumber & "</strong>" & "<br>" & vbNewLine & _
		"Error Description: " & "<strong>" & eDescription & "</strong>" & "<br>" & vbNewLine & _
		"Error Source: " & "<strong>" & eSource & "</strong>" & "<br><br>" & vbNewLine
  Else
	MyApplicationID = MyXMLSoapApp.ApplicationID
	Response.Write("ApplicationID = <strong>" & MyApplicationID & "</strong>" & "<br><br>" & vbNewline)
End If

'show the returned xml
Response.Write("Returned XML = <strong><pre>" & Server.HTMLEncode(MyXMLSoapApp.ReturnedXML) & "</pre></strong>" & "<br>" & vbNewline)

'show the sent xml (just for kicks)
Response.Write("Sent XML = <strong><pre>" & Server.HTMLEncode(MyXMLSoapApp.XML) & "</pre></strong>" & "<br>" & vbNewline)