/*
	Copyright (c) 2001 Moonstone Interactive, Inc.
	All Rights Reserved. No portion of this file, including but
	not limited to any associated code, documents or images, may be
	copied, retransmitted, reposted, duplicated or otherwise
	used without the express written permission of Moonstone Interactive, Inc.
*/

//requires browsersniff.js!!!
	
//dynamically write out a snippet of VBscript for IE/PC
//is only required for IE/PC and it breaks IE Mac

if(is_ie && is_win)
{
	var script_code;
	
	script_code='Function TestActiveX(objectID)\n';
	script_code+='on error resume next\n';
	script_code+='TestActiveX = IsObject(CreateObject(objectID))\n';
	script_code+='End Function\n';
	
	//note have to break up the string below otherwise it confuses js
	//also have to escape the closing carat
	document.write('<scr' + 'ipt language=VBScript\>\n');
	document.write(script_code);
	document.write('</scr' + 'ipt\>\n');
	//ditto the line above
}
else
{
	//might need to do something else here like set a flag
}