谁来帮我看看这段代码？在线待答

set rs1=server.createobject("adodb.recordset")
sql1 = "select * from [user] order by left(userinfo,10) desc"
rs1.open sql1,conn,1,1
response.write"最近30天过生日的同学<br>"
do while not rs1.eof
name=rs1("name")
birthday=left(userinfo,10)
h=birthday

if month(h)=10 then
d=month(h)
else
d=int(month(h))
end if

if day(h)=10 or day(h)=20 or day(h)=30 then
e=day(h)
else
e=int(day(h))
end if

f=month(date())

g=day(date())

a=d&e
c=f&g

if DateDiff("d",c,a)<31 then
response.write(name&"<br>")
else
response.write"没有同学过生日<br>"
end if
rs1.movenext
loop
rs1.close
set rs1=nothing

运行结果不符合，如，不在30天内的也显示出来。
谢谢了！谁能帮帮我！？

谁来帮我看看这段代码？在线待答 看看这段代码 请 帮我看看这段代码 帮我看看这段java代码 谁帮我看看这段代码? 帮我看看这段C代码 谁能帮我看看这段代码是什么意思？ 帮我看看这段ASP代码 帮我看看这段邮件代码 帮我看看这段ASP代码～～！