If Job.Success Then
Dim bc As ByteConverter
Log("Response: ", bc.SubString2(Job.Response, 0, Min(200, Job.Response.Length))) 'truncate to 200 characters
' Log(bc.SubString2(Job.Response,0,1))
' Log(bc.SubString2(Job.Response,2,6))
' Log(bc.SubString2(Job.Response,6,8))
' Log(bc.SubString2(Job.Response,8,10))
' Log(bc.SubString2(Job.Response,11,13))
' Log(bc.SubString2(Job.Response,13,15))
' Log(bc.SubString2(Job.Response,15,17))
Dim s As String
s = bc.SubString2(Job.Response,0,1)
Log(s)
iDoW = Bit.ParseInt(s, 10)
Log(iDoW)
If iDoW = 0 Then iDoW = 7
Log(iDoW)
End if