Function versionCheckWebLink(weblinkKey)
	oInstall.RunWebLinkApp(weblinkKey)
End Function

Function versionCheckApp(AutoRunFlag)
	' alert "weblink_autologin in unify ocx"
	' alert AutoRunFlag
	oInstall.RunApp(AutoRunFlag)
End Function

Function versionCheck()
    newversion = "1.9.5.0"                                                                  ' 
    bEverInstall =  oInstall.GetVersion ("{3EAF6E08-3CFA-4CE7-AF56-FE4251785595}",version)  ' classid - Diskpizza (registry)
	unify_odx_classid	= "5A820123-CEAD-4C49-AA87-8A9A3E0A441E"
 
    upgrade = 0
 
    'alert newversion
    'alert version 
 
    If bEverInstall Then
 
        RegCheck = Split(version,".", -1, 1)            '±âÁ¸ ¹öÁ¯
        VerCheck = Split(newversion,".", -1, 1)         'ÇöÀç ¹öÁ¯
 
        For dp = 0 To 3
            If RegCheck(dp) > VerCheck(dp) Then
                Exit For
            End If
 
            If RegCheck(dp) < VerCheck(dp) Then
               upgrade = 1
            End If
        Next
 
        If upgrade = 1 Then                             ' ¾÷±×·¹À̵å
            bb.innerHTML ="<input type='hidden' name='process' value=1>"

			' patch please.
			oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"	'test-version
            'oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"						'service-version
            st.innerHTML ="<img src='http://weblog.blog.www.com.ne.kr/statistics.php?proDN=2&name=diskpizza&old="+version+"&new="+newversion+"' width=0 height=0>"
        Else                                            ' ±×³É ½ÇÇà
            aa.innerHTML = "<object classid='CLSID:" + unify_odx_classid + "' width=1 height=1 id='DiskPizza'></object>"
            bb.innerHTML = "<input type='hidden' name='process' value=0>"

			'alert "RunApp()"
            'DiskPizza.RunApp()
            'bb.innerHTML ="<input type='hidden' name='process' value=0>"
        End If
 
    Else
        bb.innerHTML ="<input type='hidden' name='process' value=1>"
 
        ' À¥¿¡¼­ ´Ù¿î·ÎµåÇÒ °æ¿ì¿¡´Â ÀÚµ¿½ÇÇà ¹öÁ¯ ´ë½Å Ç®¹öÁ¯À¸·Î ¼³Ä¡ÇÑ´Ù.
        ' oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"

		'  patch please.
		oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"	'test-version
		'oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"						'service-version
 
        st.innerHTML ="<img src='http://weblog.blog.www.com.ne.kr/statistics.php?proDN=1&name=diskpizza&new="+newversion+"' width=0 height=0>"
    End If
End Function