Http.makeHttpRequest(Http.myXmlFunc1(UserID), "myJobName1", Me)
Http.makeHttpRequest(Http.myXmlFunc2(UserID), "myJobName2", Me)
Sub makeHttpRequest(xmlRequestString As String, jobName As String, targ As Object)
Dim outXML As String = xmlRequestString
Dim url As String = "http://www.mylink.com/mywebservices.asmx"
Dim job1 As HttpJob
job1.Initialize(jobName, targ)
job1.PostString(url, outXML)
job1.GetRequest.SetContentType("text/xml")
job1.GetRequest.Timeout = 5000
Log("HTTP job started: " & jobName)
End Sub