XML HTTP: The operation timed out

Hej

Jeg får "The operation timed out" ved "objHttpRequest.Send()".

<%

Server.ScriptTimeout = 100000

strSQL="SELECT URL FROM LINKS_FSH"
set rs = dataConn.execute(strSQL)
while not rs.eof
    FindBrokenLinks(TRIM(rs("URL")))
   
    rs.movenext
    i = i + 1
wend

function FindBrokenLinks (strURL)

    'Timeout values in milliseconds
    lngResolveTimeout = 500
    lngConnectTimeout = 500
    lngSendTimeout = 500
    lngReceiveTimeout = 500

    Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")
    With objHttpRequest
      objHttpRequest.SetTimeouts lngResolveTimeout, lngConnectTimeout, lngSendTimeout, lngReceiveTimeout
    objHttpRequest.Open "GET", strUrl
      objHttpRequest.Send()
     
      Select Case objHttpRequest.Status
        Case 200 'No problem!
            Response.Write strTestUrl & " is a valid, available URL"
          Case 404 'Not found
            Response.Write strTestUrl & " could not be found (404 Error)"
          Case Else 'Some other problem
            Response.Write "An unexpected HTTP Status value was returned: "
        objHttpRequest.Status
      End Select
    End With
    Set objHttpRequest = Nothing   
   
end function
%>