<!-- //
' Codice per il rilevamento di flash player ottenuto da
' http://www.undolog.com/2007/01/03/classe-javascript-per-il-rilevamento-di-flash/	
	
	Function VBgetSwfVer(i)
	  on error resume next
	  Dim swControl, swVersion
	  swVersion = 0
	  set swControl = CreateObject("ShockwaveFlash.ShockwaveFlash." + CStr(i))
	  if (IsObject(swControl)) then
		swVersion = swControl.GetVariable("$version")
	  end if
	  VBGetSwfVer = swVersion
	End Function
// -->