Dim Job5b As HttpJob
Dim strFilterXML As String = "<soap:Body><UploadData xmlns=""http://web.xxxxx.xxxx.xxxxx/""><f>" & su.EncodeBase64(ReadFile(Main.ImagesDir,UploadFL.Get(UploadFL.Size-1))) & "</f><fn>" & UploadFL.Get(UploadFL.Size-1) & "</fn><DID>" & Main.DID & "</DID></UploadData></soap:Body>"
Job5b.Initialize("Job5b", Me)
Job5b.PostString("http://web.xxxxx.xxxx.xxxxx/webservice.asmx", XML.Replace("<soap:Body />", strFilterXML))
Job5b.GetRequest.SetHeader("SOAPAction", "http://web.xxxxx.xxxx.xxxxx/UploadData")
Job5b.GetRequest.SetHeader("Content-Type", "text/xml; charset=utf-8")