HttpUtils.CallbackActivity = "Main"
HttpUtils.CallbackJobDoneSub = "DDVerDone"
HttpUtils.Download("JobV", DD_Version)
Sub DDVerDONE (Job As String)
ShowLoading
Dim DDVerString As InputStream
If HttpUtils.IsSuccess(DD_Version) Then
'Msgbox("Version Downloaded", "Version")
DDVerString = HttpUtils.GetInputStream(DD_Version)
DDData.ExecNonQuery("CREATE TABLE IF NOT EXISTS DDVersion (Version TEXT)")
DDVParser.Parse(DDVerString, "VerParser")
Else
'Msgbox("Could not get version","VerUpdate")
HideLoading
End If
End Sub