新手 ASP.NET用VB写数组赋值出错在线等等等

在deramweaver里写的一段小程序其实是ASP.NET书中不连接数据库的聊天室程序我把它简单化了
<html>
<head>
<title>无标题文档</title>
</head>
<body>
<%
  dim arrtemptalk()
  dim id
  id=1
  application("talkcontent")="我爱你"
  arrtemptalk=application("talkcontent")
  response.Write(arrtemptalk(id))
%>
</body>
</html>预览候系统提示arrtemptalk=application("talkcontent")这段话类型不匹配