如何才能在没有同事过生日那天显示“今天没有过生日的同事”，请帮忙加上去，先谢谢了
<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>

如果RS取出的数据为0，显示“今天没有过生日的同事”。你自己写吧

<%
if rs.eof then
response.write("今天没有过生日的同事")
else
do while not rs.eof%>

<tr>
<td><%=rs("agntname")%></td>
<%
rs.Movenext

loop
response.write("生日快乐")
end if
%>

谢谢哥哥了 ：）