var DBEngine = WScript.CreateObject("DAO.DBEngine");
var dbase = DBEngine.Workspaces(0).OpenDatabase(
		"C:\\Program Files\\NIFTY\\Database\\CabData.MDB");
var rsData = dbase.OpenRecordset(
	"SELECT EcMsgTBL.*, EcMapTBL.*, EcRoomTBL.*, ForumTBL.* "
	+ "FROM EcMsgTBL, EcMapTBL, EcRoomTBL, ForumTBL "
	+ "WHERE EcMsgTBL.MessageDataNo = EcMapTBL.MessageDataNo"
	+ " And EcMapTBL.RoomInfoNo = EcRoomTBL.RoomInfoNo"
	+ " And EcRoomTBL.ForumInfoNo = ForumTBL.ForumInfoNo");

with(rsData) {
	while(!EOF) {
		WScript.Echo(Fields("GoCommand").Value);
		WScript.Echo(Fields("RoomNo").Value);
		WScript.Echo(Fields("MessageNo").Value);
		WScript.Echo(Fields("DataTime").Value);
		WScript.Echo(Fields("UserID").Value);
		WScript.Echo(Fields("UserName").Value);
		WScript.Echo(Fields("MessageTitle").Value);
		WScript.Echo(Fields("ParentMessageNo").Value);
		WScript.Echo(Fields("TextData").Value);
		MoveNext();
	}
}

rsData.Close();
dbase.Close();