哪位给看看，如何写入多行文本

str = "driver={MySQL ODBC 3.51 Driver};SERVER=192.168.1.101;database=OA;uid=root;pwd=123456;Port=3306;option=16386;"
Set DBs = CreateObject("ADODB.Connection")
DBs.Open Str
sql_str = "SELECT * FROM diary where USER_ID='张三'"
Set res = DBs.execute(sql_str)
MsgBox res("SUBJECT")
MsgBox res("CONTENT")
Dim f,fpath
set fso=wscript.createobject("scripting.filesystemobject")
fpath = fso.GetFolder(".").Path
set f=fso.OpenTextFile(fpath & "\testfile.txt", 8, True)
f.writeline res("SUBJECT")
f.write res("CONTENT")
temp=VarType(res("CONTENT"))
MsgBox temp
f.Close
打算写个脚本实现自动保存工作日志，从数据库里读取日志内容，写到本地文本文件里，执行【f.write res("CONTENT")】这一行时提示错误“类型不配置”
res("CONTENT")返回的是一个多行文本，如果是单行文本就没问题，如SUBJECT是单行文本，执行【f.writeline res("SUBJECT")】时没问题
用【VarType(res("CONTENT"))】测试数据类型，返回值是1，就是不包含任何有效数据
那应该怎么写才能输出res("CONTENT")的查询结果呢