<%@LANGUAGE="VBScript"%> <% '*********************************************************************** ' System : ASPProtect ' Author : Christopher Williams of CJWSoft www.CJWSoft.com ' ' COPYRIGHT NOTICE ' ' See attached Software License Agreement ' ' (c) Copyright 2000 - 2002 by CJWSoft. All rights reserved '*********************************************************************** %> <% ' This will test the ASPTear 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 ' That is assuming the requested URL is still valid On Error Resume Next Set objHttp = CreateObject("SOFTWING.ASPtear") Response.ContentType = "text/html" strRetval = objHttp.Retrieve("http://www.cjwsoft.com/ipnfulfill/test_component.asp", 1, str, "", "") 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 %>