生日代码缺少个东西
如何才能在没有同事过生日那天显示“今天没有过生日的同事”，请帮忙加上去，先谢谢了
<p>
<font color="#FF0000">
<marquee scrolldelay="100">
祝：
<%
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "192.168.10.101","sa","123456"
sersql="select * from birthday where substring(id,11,4) = substring(convert(varchar(12),getdate(),112),5,4)
'"
Set rs=OBJConn.Execute (sersql)
%>
<%do while not rs.eof%>
<tr>
<td><%=rs("agntname")%></td>
<%
rs.Movenext
loop
%>生日快乐
<br>
<%
OBJConn.Close
Set rs = Nothing
Set OBJConn = Nothing
%>
</marquee></font>
</p>
