Sub JobDone(job As HttpJob)
Dim out As TextWriter
out.Initialize(File.OpenOutput(File.DirDefaultExternal, "test.txt",False))
out.Write(job.GetString())
out.Close
'parse the xml file
Dim In As InputStream
In = File.OpenInput(File.DirDefaultExternal, "test.txt")
parser.Parse(In, "Parser")
In.Close
End Sub