Microsoft VBScript 运行时错误 错误 '800a0006' 请大大们帮我解答一下

问题:

一个ASP企业站,上传完成之后,后台加图片后,前台首页出现:

Microsoft VBScript 运行时错误 错误 '800a0006'
溢出

/index.asp，行 113


相关代码:   <%
            set rs=server.createobject("adodb.recordset")
            sql="select companyname,URL,linktype,picurl from Sbe_Weblink order by linktype asc,ID desc"
            rs.open sql,conn,1,1
            if not rs.eof then
               do while not rs.eof
               imgpath="UploadFile/"&rs("picurl")&""
                set pp=new imgInfo
                w = pp.imgw(server.mappath(imgpath))
                h = pp.imgh(server.mappath(imgpath))
                response.write w&""&h
                response.end
                set pp=nothing
                if w/h>3.98 then
                    w1=171
                    h1=w1*h/w
                else
                    h1=43
                    w1=w*h1/h
                end if
            %>

希望有高手帮我解释一下啊

h可能是0

倒底怎么修改呢

有人知道吗