asp中访问自己写的com倥件，提示“Microsoft VBScript 运行时错误错误 '800a01a8' ”，请教如何解决

asp 代码：
<html>
<head><title>test my first com in delphi</title></head>
<body>
<%
  response.Write("test com")  Dim testRun
   Set testRun = CreateObject("YhCom.RunComponent")
   testRun.run
  response.write("<br>new line<br>") %>
</body>
</html>在VB中测试代码没有问题Private Sub Command1_Click()
   Dim testRun As RunComponent

   Set testRun = CreateObject("YhCom.RunComponent")
   testRun.run

End Sub