<%@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 Microsoft XML Parser 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
	
	set objHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
	objHttp.open "POST", "http://www.cjwsoft.com/ipnfulfill/test_component.asp", false
	objHttp.Send str
	strRetval = objHttp.responseText
	
	Response.Write strRetval
		
	set objHttp = nothing
%>