hmlhttp request to check if URL is valid - not working

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

Code (markup):

any suggestions would be appreciated.

 

If I'm not wrong Google may do a redirect (ex. it sends me to my local Google page). Do you get the error with other redirect pages? But it can also be some settings on your server (but I can't tell you which).

Anyway, I think you must look into using CreateObject("WinHTTP.WinHTTPRequest.5.1") instead of Server.CreateObject("Microsoft.XMLHTTP")

 

1. code error : take off the end of 3 lines
else
sTxt="fail"
End if
no need

2. it runs very well .... try again .... and let us know the result.