files exists on remote server

Hi, I am making a script that checks if a download link is online before giving them a link. this is the script i currently use:

GotothisURL = rs("URL")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

Data = GetConnection.responseText

Set GetConnection = Nothing

if not data="" Then

'content if the link is good

else

'content if link is bad

end if

It does work but it takes ages to load the page because the server downloads the file, is there a way to either just wait for the data variable to be populated then give the link is good content if after 10 secs it is not give the bad link content, or a totally differant method.

Thanks alot, Mart.

Its alright now ive fixed it, if anyone wants the modified code here it is:

GotothisURL = rs("URL")

Set GetConnection = CreateObject("Microsoft.XMLHTTP")

GetConnection.Open "get", GotothisURL, False
on error resume next
GetConnection.Send

if not err.number <> 0 Then

'content if the link is good

else

'content if link is bad

end if

Set GetConnection = Nothing