<%@LANGUAGE="VBScript"%> <% '*********************************************************************** ' System : ASPBanner Unlimited ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2003 by CJWSoft. All rights reserved '*********************************************************************** %> <% ' This will test the AspHTTP component by initializing the component and requesting a web page from the internet. ' You must be connected to the internet to test this. ' If you do not see the requested web page or get any kind of error the component is not installed correctly or the web site is down ' That is assuming the requested URL is still valid 'On Error Resume Next Set objHttp = Server.CreateObject("AspHTTP.Conn") Response.ContentType = "text/html" objHttp.Url = "http://www.cjwsoft.com/ipnfulfill/test_component.asp" strRetval = objHttp.GetURL If Err.Number <> 0 Then Response.Write "" If Err.Number >= 400 Then Response.Write "Server returned error: " & Err.Number Else Response.Write "Component/WinInet error: " & Err.Description End If Response.Write "" Response.End End If Response.Write strRetval set objHttp = nothing %>