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

下标越界: '[number: 0]' 

/bbs/home.asp，行 440 

请高手帮忙指导一下!!为什么会出现这样的错误了?

<%
exit sub
end if
 
    sql="select top 2 userid,username,userpost,usersex,userface,userwidth,userheight,usertitle,joindate,lastlogin,userclass,usertoday from [dv_user] where username='"&tempname&"' order by userpost desc"
set rs=Dvbbs.Execute(sql)
If Not RS.Eof then
    SQL=Rs.GetRows(-1)
end if
    rs.close:set rs=nothing
    tempface=split(sql(4,i),"|")
If Ubound(tempface)>0 Then
    face=tempface(1)
else
    face=tempface(0)                                    440行
end if
    mydate=Split(sql(8,i)," ")
if sql(3,i)=1 then
    mysex="Boy"
else
    mysex="Girl"
end if
    tempstr=Split(sql(11,i),"|")
%>