ASP程序出现这个错误 Microsoft VBScript 运行时错误 错误 '800a01b6'

网页直接显示

Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'ShowPageNew'



代码部分

<%
Set mypage=new xdownpage 
mypage.getconn=conn
mypage.getsql= sql
mypage.pagesize=50
set rs=mypage.getrs()
for i=1 to mypage.pagesize
if not rs.eof then 
' if rs("UserName") <> rs("prev_username") and len(trim(rs("prev_username"))) > 1  then 
' color = ";color:#F00"  
' else
' color = ""
' end if
%>

下面这句是错误页面提示的所在行的错误代码
我也不知道哪里有问题，高手支招，谢谢
<td align="center" ><%=mypage.ShowPageNew()%></td>