' test script for pocketSOAP / SQLData Server
' This calls the Edgar search service
' see www.soapclient.com
' 
' The response is a chunk of HTML, this is typically to large
' to display with wscript.echo, so we just dump its size

dim e
set e = CreateObject("PocketSOAP.Envelope.2")

e.methodName = "ProcessSRL"
e.URI = "http://www.SoapClient.com/xml/SQLDataSoap.xsd"

e.Parameters.Create "SRLFile", "/xml/edgar.sri"
e.Parameters.Create "RequestName", "EDGAR"
e.Parameters.Create "key", "AMD"

x =  e.serialize
wscript.echo len(x) & vbCRLF & x

dim t, r
set t = CreateObject("PocketSOAP.HTTPTransport.2")
t.SOAPAction = "/SQLDataSRL"

t.Send "http://www.SoapClient.com/xml/SQLDataSoap.WSDL", x 
e.Parse t

wscript.echo "Response text is " & len(e.Parameters.item(0).value) & " characters long"