hmlhttp request to check if URL is valid - not working

[gwrman]

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

any suggestions would be appreciated.

 

[tsuji]

Cannot verify the statement on where the approach fails, but there are some problems on the script itself as presented.

[1] If you monitor err object, it does not mean anything without "on error resume next" instruction inserted.
[2] There are a couple of script lines near the end which should not be there. Don't know why they are there, maybe typo?
[tt]
Dim objHTTP
Dim sHTML
Set objHTTP = Server.CreateObject ("Microsoft.XMLHTTP")
[red]on error resume next[/red]
[green]'I suppose strURL is defined somewhere beforehand[/green]
objHTTP.open "GET", strURL, False
objHTTP.send
sHTML=objHTTP.statusText
if err or sHTML<>"OK" Then
sTxt="fail"
[blue]err.clear[/blue]
else
sTxt="ok"
End if
[blue]on error goto 0[/blue]
Set objHTTP=nothing
[red]'[/red]else
[red]'[/red]sTxt="fail"
[red]'[/red]End if
[/tt]
[3]>It does work for some, but sites that seem to be written in PHP, and google, seem to return a "fail"
With the underlying functionality of the object, I don't see why it won't work on php in general and on google site.