有一个问题，请高手帮我解决，up有分

Dim rp As Response    Dim rq As Request    Dim ap As Application    Dim sr As Server    Dim sn As Session    '当组件被创建的时候会触发这个事件    Public Sub OnStartPage(mysc As ScriptingContext)     '进行对象的实例化     Set rp = mysc.Response     Set rq = mysc.Request     Set sr = mysc.Server     Set ap = mysc.Application     Set sn = mysc.Session     rp.Write "<br>ActiveX DLL组件已经被创建了！<br>"    End Sub    '当组件被销毁的时候触发这个事件    Public Sub OnEndPage()     rp.Write "<br>ActiveX DLL组件已经被销毁！<br>"     '销毁对象     Set rp = Nothing     Set rq = Nothing     Set sr = Nothing     Set ap = Nothing     Set sn = Nothing    End Sub    '定义我们自己的一个组件方法    Public Sub HelloWorld()    my.Write "<H1>Hello,World!</H1>"    End Sub以上是我用VB写的组件代码，编译通过了，生成了project1.dll,类模块是class1.cls,注册成功了，然后用ASP调用，代码如下：
　<html> 
　　 <head> 
　　　　<title>测试ActiveX DLL</title> 
　　 </head> 
     <body> 
　　<% 
　　　set testme=server.createobject("project1.class1") 
    　testme.HelloWorld 
    set testme=nothing 
　　%> 
　　 </body> 
　　</html>
但是就是部能运行说这一行有错，set testme=server.createobject("project1.class1") 不知道是什么原因，请帮我解决下！