Checke om URL'en findes via ASP

lavede den her til et spørgsmål for et stykke tid siden prøv og se om den lever op til dine forventninger!

<%
Function testHTTP (url)
dim objXMLHTTP, resultat, html

Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", URL, false 
  On Error Resume Next
  objXMLHTTP.Send

  If Not err.number <> 0 Then
    resultat = 1
  Else
    resultat = 0
  End If

  Set objXMLHTTP = Nothing
  testHTTP = resultat
End Function


If testHTTP(request.querystring("http")) = 1 Then
  response.write "siden er oppe" 'eller et billede eller hvad du vil :)
Else
  response.write "siden er nede" 'eller et billede eller noget
End If
%>

selvfølgelig er den her lavet som en separart ved klik på et link, som så checker!

og syntaxen på linket er til at regne ud

<a href="check.asp?http=http://www.grunken.dk/index.html">Check</a>

Det virker til dels...

Den finder fint ud af, om domænet findes eller ej, men den siger "siden er oppe" selvom den får en "fejl 404 - siden findes ikke" tilbage...

Er det muligt at rette det til, så man kan fange disse 404'ere og sætte dem til at være nede?

/J

og hvis url'en ikke begynder med 'http' viser den siden er nede

mm12020>> det betyder ikke noget for mig, jeg sørger for at folk taster det rigtige ind på en anden måde, og så klarer den automatisk http://

/J

klart :o)

ville bare lige nævne det

selvfølgelig - jeg havde ikke selv testet det, men da jeg allerede kræver at de taster det rigtigt ind, så betød det ikke noget:-)

/J

grunken - smider du ikke lige et svar?

/J

grunken - smider du ikke lige et svar?

/J

grunken - smider du ikke lige et svar?

Sidse gang jeg spørger - derefter lukker jeg... Hvis du senere vil have dine points, siger du bare til:-)

/J

Mærkeligt, jeg har ikke fået en eneste mail på den her tråd, men faldt tilfældigvis over den, undskyld den lange ventetid! ;)

Jeg havde tænkt mig at holde den åben en måneds tid, så du havde mulighed for at svare, så du havde nok opdaget det alligevel:-)

Tak for hjælpen!

/J

Jeg ved ikke om det er et bedre script, men det bruger selve .Status til objektet..
Muligvis fundet hos 4guysfromrolla.com :

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

strTestUrl = "http://www.microsoft.com/nonexistingpage.html"

Set objHttpRequest = CreateObject("MSXML2.ServerXMLHTTP")
With objHttpRequest
  .SetTimeouts lngResolveTimeout, lngConnectTimeout, lngSendTimeout,
lngReceiveTimeout
  .Open "GET", strTestUrl
  .Send
  Select Case .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: " &
.Status
  End Select
End With
Set objHttpRequest = Nothing
%>