请帮忙纠正错误。高分请教！！！！！

[tanmaomao999]

Dim ObjTestLineConfig
Set ObjTestLineConfig = CreateObject("Scripting.Dictionary")
strSql="select * from TLView_TestLineConfig"
Set objRs = objConn.Execute(strSql)
DO While not objRs.eof
strcode = objRs("ccCode")
strname = objRs("ccCodeName")
ObjTestLineConfig.Add strcode,strname
objRs.movenext
Loop
objRs.Close
Application("ObjTestLineConfig") = ObjTestLineConfig
提示最后一句出错，为什么？如何更正（数据库检索是正确的）

[nittystone]

是不是应该这样
set Application("ObjTestLineConfig") = ObjTestLineConfig

[tanmaomao999]

不行，错误提示是错误类型：
应用程序对象, ASP 0185 (0x8002000E)
找不到对象的默认属性。

[annkie]

objRs.open strsql,conn,1,1
没有 写

[caoshangfei]

提示什么错误？

[月光易水]

Set ObjTestLineConfig = CreateObject("Scripting.Dictionary")
.....
set Application("ObjTestLineConfig") = ObjTestLineConfig

错误类型：
应用程序对象, ASP 0197 (0x80004005)
不能添加 apartment 型的对象到应用程序的实质对象中。

Dictionary是一个存储集合，
Application对象不能使用该类型

[bushido]

set session("ObjTestLineConfig") = ObjTestLineConfig

[nittystone]

关注

[softrookie]

有没有事先定义session("ObjTestLineConfig")