//The following content is Copyright ©2005 Advanced Data Network.
//Please contact Advanced Data Network by e-mail at adn@adnsa.com if you want to use a part or the whole of it.

// VBSCRIPT de detection
sub verif_pdf_version()
On Error  Resume Next
	    For r = 2 to 7
			
		If Not(IsObject(CreateObject("PDF.PdfCtrl." & r))) Then

		Else
		    isAR6 = true
			arversion = r
			
		End If
	Next
		 
		 
		 

end sub

sub verif_flash_version()
on error resume next


	For w = 2 to 7
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & w))) Then

		Else
			flashinstalled = 2
			flashversion = w
			
		End If
	Next

If flashinstalled = 0 Then
	flashinstalled = 1
End If
End sub