YA ESTA
o con On Error GoTo ExecuteError de asp
q no se como funciona y podras completar:
lo puedes ver en accion en:
Código:
<%
'Let page run for 4 minutes
Server.ScriptTimeout = 240
Function GetHTML(strURL,cont_caducada,cont_ok)
on error resume next
'puedes cazar el error pasa sacar por pantalla y sumar la variable
Dim objXMLHTTP, strReturn, strHTML
Set objXMLHTTP = SErver.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "HEAD", strURL, False
objXMLHTTP.Send ()
if (objXMLHTTP.Status >= 200 And objXMLHTTP.Status < 300) then
cont_ok=cont_ok+1
response.Write (objXMLHTTP.statustext)
else
cont_caducadas=cont_caducadas+1
Response.write (objXMLHTTP.statustext)
Set objXMLHTTP = Nothing
end if
End Function
%>