If (messageType = "3089") Then
Dim myLat As String
Dim myLon As String
myLat = raw.SubString2(58,66)
myLon = raw.SubString2(66,74)
Dim b() As Byte=bc.HexToBytes(myLat)
Dim Latitude() As Int=bc.IntsFromBytes(b)
Dim b() As Byte=bc.HexToBytes(myLon)
Dim Longitude() As Int=bc.IntsFromBytes(b)
Log("Latitude: " & Latitude(0))
Log("Longitude: " & Longitude(0))
'sql.write_trans=INSERT INTO trans VALUES (null,?,?,?,?,?,?,Now())
Dim cmd As DBCommand = CreateCommand("write_trans", Array(deviceMAC,Latitude,Longitude, messageType,myfleet,myfriendname))
Dim j As HttpJob = CreateRequest.ExecuteBatch(Array(cmd), Null)
Wait For(j) JobDone(j As HttpJob)
If j.Success Then
Log("write_trans OK")
End If
j.Release
End If