'<!-- Copyright (c) 2006- Saora Inc., Japan. All rights reserved.-->
'<!-- Proprietory implementation by Saora Inc. for website http://www.antiager.org-->
'<!-- published by インターネットAISET.-->
'<!-- No part may be copied or reused without written permission from Saora Inc., Japan -->


varKPTInitialize = False
varKPTWebSaveObjectExist = False

Function vbInitilaize()
	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

Function KeepIt()
	if (varKPTInitialize = False) Then vbInitilaize()
	save()
End Function