Dim update, osinfo
	update = 3							'// 1(¸ð´Þâ),3(ÆäÀÌÁö À̵¿ ¹æ½Ä), 5(ÇÁ·¡ÀÓ ¼³Ä¡ ¹æ½Ä), -1(¼³Ä¡ÇÏÁö¾Ê°í ºüÁ® ³ª°¡±â)
	rxPath	= "/cabsoft/vista/"       '//ReportExpress Á¦Ç° ¼³Ä¡ Æú´õ
	CaptionA = "(ÁÖ)ĸ¼ÒÇÁÆ®"			'//¼³Ä¡ ±â°ü¸í
	ShowMsgA = False 					'// ¼³Ä¡ Á¤º¸ º¸¿©ÁÖ±â

	// 1. ¹öÁ¯ Á¤º¸ È®ÀÎ
	On Error Resume Next
	Set obj=CreateObject("rxppUpdator.Updator")
	if err.number = 0 then
		hostname = window.location.host
		obj.RemoteHost= hostname + rxPath + "module/"
		obj.SetupFileName= "rxp.htm"
		obj.ShowErrorMsg = 0
		obj.Timeout=30
		obj.Caption = CaptionA
		update = obj.CheckUpdate(ShowMsgA)
	end if
	Set obj=Nothing

	if update <> 0 then
		window.location.href = rxPath & "inst_vista_js.htm?update=" & update
	end if