'<!-- Copyright (c) 2000-03 Saora Inc., Japan. All rights reserved.->
'<!-- Proprietory implementation by Saora Inc. for INDOlink V01.10 2003/08/21-->
'<!-- No part may be copied or reused without written permission from Saora Inc. -->

varKPTInitialize = False
varKPTWebSaveObjectExist = False

Function vbInitialize()
	On Error Resume Next
	Dim oObj
	Set oObj =  CreateObject("Keepoint.KeepThis")
	if (Err=0) 	Then 
		varKPTWebSaveObjectExist = True
	End If
	Set oObj = Nothing
	varKPTInitialize = True
End Function