Microsoft VBScript 実行時エラー エラー '800a01a8'

オブジェクトがありません。: 'RoomList'

/ver3d/ASPY0000calendaronly.asp, 行 1312