Private WebServiceStatusCode As String


Public Function ConnectionAvailable(ByVal strServer As String) As Boolean

Try

Dim reqFP As HttpWebRequest = DirectCast(HttpWebRequest.Create(strServer), HttpWebRequest)


Dim rspFP As HttpWebResponse = DirectCast(reqFP.GetResponse(), HttpWebResponse)

If HttpStatusCode.OK = rspFP.StatusCode Then

' HTTP = 200 - Internet connection available, server online

WebServiceStatusCode = rspFP.StatusCode.ToString()

rspFP.Close()

Return True

Else

' Other status - Server or connection not available

WebServiceStatusCode = rspFP.StatusCode.ToString()

rspFP.Close()


Return (False)

End If

Catch generatedExceptionName As WebException

' Exception - connection not available

WebServiceStatusCode = generatedExceptionName.Message

Return False

End Try

End Function