Sub FixDupe(errmess As String)
'HTTP Service Error: com.mysql.jdbc.exceptions.jdbc4.MySQLIntegrityConstraintViolationException: Duplicate entry '318-1417648921833-69-1041' for key 'PRIMARY'
If errmess.Contains("MySQLIntegrityConstraintViolationException") Then
Dim s As String
Dim i, j As Int
i = errmess.IndexOf("'")
j = errmess.IndexOf2("-",i)
s = errmess.SubString2(i+1,j) '318 in this case
Log(" Fixing Err: "&errmess)
Log(" Fixing dupe The PK: "&s)
DefCM.SQL3.ExecNonQuery("UPDATE LogStats Set LogSent = 1 WHERE LogID = "&s)
End If
End Sub