高分请教asp的com组件调用问题

昨天还是好的，今天总是返回“缺少对象424 ”的错误。
用vb写了一个com+组件，用asp调用，昨天还是好好的，今天一直不行，请大家帮帮忙。程序如下：vb中:引用com+ services type libary和ms active server pages object libaryPublic Sub onStartPage()
Dim x As Response
Set x = GetObjectContext.Item("Response")
x.Write "hello"
End Subactive dll工程名字为VBShare.vbp,类为ClsOpen
---------------------------------------------
asp程序如下：
<%@ LANGUAGE="VBSCRIPT"%>
<HTML><BODY>
<H2 align="center">Test<H2>
<%
On Error Resume Nextdim ProgID,req
ProgID ="VBShare.ClsOpen"
set req = Server.CreateObject(ProgID)
req.onStartPage
if Err.Number<>0 then
response.write "<b>网页脚本出错!<b><br>"
response.write "<b>VB错误描述如下</b>：" & Err.Description & err.number
End if%>
</body></html>