下面的这段代码在VB6中编译时会出现"用户定义类型未定义"的错误，在工程中引用了Microsoft Active Server Pages Object Library 和Microsoft Active Server Pages ObjectContent Object Library ,请帮忙看看

'对象的声明

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 ScriptingContent) 'ERR:用户定义类型未定义

'进行对象的实例化

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()

rp.write "<H1>Hello,World!</H1>"

End Sub