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.
