Dim objHTTP, sUrl, lError
sUrl = "http://www.fdkjsdlfsdjfks.com/"
On Error Resume Next
Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", sUrl, False
objHTTP.setRequestHeader "Content-type", "text/html"
objHTTP.send
If Err.Number Then
lError = Err.Number
ElseIf objHTTP.Status <> 200 Then
lError = objHTTP.Status
End If
Set objHTTP = Nothing
On Error GoTo 1
If lError Then
Response.Write "Fel!"
Else
Response.Write "Funka!"
End If
Koden är inte helt stabil, funkar inte på följande punkter:
1. På en .nu adress så får man en redirect till nunames om domänen inte finns.
2. Stoppar man domänen i iis:en så får man en redirect till att sidan är under uppbyggnad.
Eftersom man får redirects så tror koden att domänen finns. :(
Nu är man i farten och försöker lägga till en följdfråga på en gammal tråd, vi får väl se hur det går :)
Jo, om jag förstår det hela rätt så kollar man av om felsidan laddas.
Har två frågor:
Går det att tidsbestämma hur långtid laddningen får lov att ta?
Går det att undersöka koden som man hämtar så att man kan gardera sig mot t ex databas fel på sidan man hämtar informationen från? Typ när en databas är upptagen för nedladdning eller bara upptagen.
Hoppas det går att förstå vad jag menar, tack på förhand.
