ASP
<%
Dim objXMLHTTP
On Error Resume Next
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", "address", False
objXMLHTTP.Send
If ErrNum <> 0 Then
Response.Write(vbCrLf & "<font size=""3"" color=""#FF0000""><strong>")
Response.Write(vbCrLf & " Failed to contact the server!!")
Response.Write(vbCrLf & " <br />Please check your internet connection and try again.")
Response.Write(vbCrLf & "</strong></font>")
Else
Response.Write(objXMLHTTP.responseText)
End If
Set objXMLHTTP = Nothing
%>
Edited by Semikolon