' blip the webservice to see if we can reach it
Log("Checking access")
Dim jobCheck As HttpJob
jobCheck.Initialize("CheckAccess", Me)
jobCheck.PostString(webSite, "Function=CheckAccess)
Wait For (jobCheck) JobDone(jobCheck As HttpJob)
If jobCheck.Success Then
Msgbox("You do not appear to have a connection to xxxxxx at the moment. Please try again later","Warning")
Activity.Finish
Return
End If
jobCheck.Release