Skulle det inte funka med(som princip):
[red]on error resume next[/red]
If Err.Number <>"" then
'Inget fel
else
Err.clear
'Fel på kod
End If
Frågan#1
På ett antal sidor hämtar jag information från en annan server med hjälp av xmlhttp. När servern är nere (den som jag hämtar ifrån), eller bara att sidan inte finns vid tillgänglig vid just det tillfället dyker ett fel meddelande upp:
Körningsfel i Microsoft VBScript fel '800a000d'
Inkompatibla typer: '[string: "<!DOCTYPE HTML PUBLI"]'
eller när servern är helt nere:
fel '800c0005'
Vid dem tillfällen vill jag att en egen komponerad text visas för besökaren.
Koden för funktionen:
<%
sPage = "http://www.x.xx"
Set oHTTP = Server.CreateObject("MSXML2.XMLHTTP")
oHTTP.open "GET", spage, False
oHTTP.send
arr = split(oHTTP.responseText, ";")
response.write arr(0)
response.write arr(3)
response.write arr(5)
Set oHTTP = Nothing
%>
Något förslag? ;)
