var InternetExplorer = navigator.appName.indexOf("Microsoft") != -1;
	  	
//-------------------------------------------------------------------------------------------------
//La variable ci-dessous contient le nombre de maximum de caméras
// pouvant être disposées dans le fichier Flash
var NbCamsMax = 50;
//-------------------------------------------------------------------------------------------------
	  	
var WinID = new Array(NbCamsMax);
var WName = new Array(NbCamsMax);
	  	
for (var i = 1; i <= NbCamsMax; i++)
{
	WinID[i] = 0;
	WName[i] = "none";
}
	  	
window.moveTo(0, 0);
	  	
function carte_DoFSCommand(command, args)
{
	var map = InternetExplorer ? document.Carte : document.embeds[0];
	  	
	args = String(args);
	command = String(command);
	  	
	switch (command)
	{
		case "launchcam":
		launchcam(args);
		break;

	}
}
	  	

function launchcam(args)
{
	var arg;
	IsOpen = 0;
	arg = args.split("&");
	CamURL = "" + arg[0];
	  	
	pos = CamURL.lastIndexOf("/");
	pos2 = CamURL.indexOf(".ashx");
	Site = CamURL.substring(pos + 1 , pos2);
	Site = Site.toUpperCase();
	  	
	for (var i = 1; i <= NbCamsMax; i++)
	{
		if (WName[i] != "none")
		{
			if (WName[i].closed)
			{
				WinID[i] = 0;
				WName[i] = "none";
			}
			if (WinID[i] == Site)
			{
				IsOpen = 1;
				WName[i].focus();
			}
		}
	}
	if (IsOpen != 1)
	{
		for (var i = 1; i <= NbCamsMax; i++)
		{
			if (WinID[i] == 0)
			{
				WinID[i] = Site;
				URL = "/rubriques/webcam/cam.htm?" + args + "&" + i;
				if (navigator.appName && navigator.appName.indexOf("Microsoft") != -1)
				{
					WName[i] = window.open(URL, "Titre", "width=380 height=500");
				}
				else
				{
					Addr = document.location + "";
	  	                        pos = Addr.indexOf("/control/")
	  	                        Addr = Addr.substring(0, pos);
	  	                        URL = Addr + URL;
	  	                        WName[i] = window.open(URL, Site, 'innerWidth=380,innerHeight=520');
				}
				break;
			}
		}
	}
}
	  	
	  	
function Fermeture(i)
{
alert("ferme");
	WinID[i] = 0;
	WName[i].close();
	WName[i] = "none";
}
	  	
document.write('<SCRIPT LANGUAGE=VBScript\> \n');
document.write('on error resume next \n');
document.write('Sub Carte_FSCommand(ByVal command, ByVal args)\n');
document.write('call Carte_DoFSCommand(command, args)\n');
document.write('end sub\n');
document.write('</SCRIPT\> \n');