rem // VBScript Provided by Sun for detecting jnlp support on IE

Function jnlpSecondEval ()
	on error resume next
	If jnlpIE = true Then

	  If Not(IsObject(CreateObject("JavaWebStart.isInstalled"))) Then
	     javawsInstalled = 0
	  Else
	     javawsInstalled = 1
	  End If

	  If Not(IsObject(CreateObject("JavaWebStart.isInstalled.1.4.2.0"))) Then
	     javaws142Installed = 0
	  Else
	     javaws142Installed = 1
	  End If 

	  If Not(IsObject(CreateObject("JavaWebStart.isInstalled.1.5.0.0"))) Then
	     javaws150Installed = 0
	  Else
	     javaws150Installed = 1
	  End If  

  	  If Not(IsObject(CreateObject("JavaWebStart.isInstalled.1.6.0.0"))) Then
	     javaws160Installed = 0
	  Else
	     javaws160Installed = 1
	  End If  

	End If
End Function