Function versionCheck()
    newversion = "1.9.0.0"                          										' 
    bEverInstall =  oInstall.GetVersion ("{3EAF6E08-3CFA-4CE7-AF56-FE4251785595}",version)	' classid - Diskpizza (registry)
	preDiskpizza_classid = "19306506-995D-4D3D-BBB4-AA54B54B250F"							' classid - preDiskpizza.ocx 
	'preDiskpizza_classid = "B2AD7C04-610A-45F5-AC73-EA7F18125F7E"							' classid - preDiskpizza.ocx 

    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>"
            ' À¥¿¡¼­ ´Ù¿î·ÎµåÇÒ °æ¿ì¿¡´Â ÀÚµ¿½ÇÇà ¹öÁ¯ ´ë½Å Ç®¹öÁ¯À¸·Î ¼³Ä¡ÇÑ´Ù.
            oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/DiskPizza/full/setup.exe"
            'oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/SevenDisk/Install/SevenDiskInstaller.exe"
            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                                            ' ±×³É ½ÇÇà

			'alert preDiskpizza_classid

			aa.innerHTML ="<object classid='CLSID:" + preDiskpizza_classid + "' width=1 height=1 id='DiskPizza'></object>"
			bb.innerHTML ="<input type='hidden' name='process' value=0>"
            'oInstall.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"
        'oInstall.Install "http://easyinstall.icons.com.ne.kr/easyinstall/SevenDisk/Install/SevenDiskInstaller.exe" 
 
        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