sub AdoreWpt_jsRegister(byref msg)
		f.regInfo.value= msg
		if(msg="REGISTERED") then
		end if

		If((msg="LOG OFF") OR (msg="REJECTED")) then
		end if
	end sub

	Sub AdoreWpt_jsSession(byref ssmsg)
		f.sessinfo.value=ssmsg
	end sub