set Calendar12=server.createobject("MSCAL.Calendar.7") 为什么说找不到元素？

[qing_zb]

服务器对象 错误 'ASP 0177 : 8002802b'

Server.CreateObject 失败

/Calenda.asp，行77

找不到元素。
------------------------


<%
dim Calendar12
dim dtCalendar
set Calendar12=server.createobject("MSCAL.Calendar.7")
dtCalendar = DateSerial(Calendar12.Year, Calendar12.Month, Calendar12.Day)


'response.write "这是月份："&dtCalendar

%>