.
.
.
If netLive = True AND File.Exists(File.DirInternal,"temp.txt") = True Then
reader.Initialize(File.OpenInput(File.DirInternal,"temp.txt"))
ProgressDialogShow("Saving local data to cloud")
line = reader.ReadLine
Do Until line = Null
lines = Regex.Split(",",line)
sPH = lines(0)
sO2 = lines(1)
sSample = lines(2)
sSample_Date = lines(3)
sNotes = lines(4)
sBarrel = lines(5)
savejob.Initialize("local",Me)
savejob.Download2("http://www.xxxxxxxxxx.com/xxxxx.php",Array As String("companyid",companyID,"sample_ph",sPH,"sample_o2",sO2,"sample_taste",sSample,"sample_date",sSample_Date,"sample_notes",sNotes,"sample_barrel",sBarrel))
line = reader.ReadLine
Loop
reader.Close
File.Delete(File.DirInternal,"temp.txt")
ProgressDialogHide
End If
.
.
.
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
Select Case Job.JobName
Case "savejob"
ToastMessageShow("Data saved online.",True)
Case "local"
ToastMessageShow("Local data saved online.",False)
End Select
Else
Msgbox("Error in saving " & Job.ErrorMessage,"ERROR")
End If
Job.Release
End Sub