newurl = "http://---.dontexist.net/tracking/trackme.asp"
If EditText1.Text = "" Then
varss="lat=" & lblLat.Text & "&Long=" & lblLon.Text & "&speed=" & lblSpeed.text & "&car=" & carid & "&password=*********"
Else
varss="lat=" & lblLat.Text & "&Long=" & lblLon.Text & "&speed=" & lblSpeed.text & "&car=" & carid & "&password=*********&msg=" & EditText1.Text
End If
newurlall = newurl & "?" & varss
If debugon = False Then
TW.Initialize(File.OpenOutput(File.DirRootExternal, "rtzlog.txt",True))
TW.WriteLine(newurlall)
TW.Flush
TW.Close
End If
If oldurl <> newurlall Then
job1.Initialize("Job1", Me)
job1.PostString(newurl, varss)
oldurl=newurlall
End If