Hmlhttp Request To Check If URL Is Valid

I use the following code to chck for a working url. It does work for some, but sites that seem to be written in PHP, and google, seem to return a "fail" - I can't figure out how to get p-ast this.

Dim objHTTP
Dim sHTML
Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
objHTTP.open "GET", strURL, False
objHTTP.send
sHTML=objHTTP.statusText
if err or sHTML<>"OK" Then
sTxt="fail"
else
sTxt="ok"
End if
Set objHTTP=nothing
else
sTxt="fail"
End if