通过数据库的查询姓名是按列显示，我想给他按行显示行，那要怎么写？先谢谢了
<marquee scrollamount="4" scrolldelay="4" width="967" height="24">祝：
<%
Set OBJConn = Server.CreateObject("ADODB.Connection")
OBJConn.Open "bj","ass","123"
sersql="select ame from agnt where substring(sfz,11,4) = substring(convert(varchar(12),getdate(),112),5,4)"
Set rs=OBJConn.Execute (sersql)
%>
<%
if rs.eof then
response.write("大 家 工 作 愉 快")
else
do while not rs.eof%>

<tr>
<td><%=rs("ame")%></td>
<font color="#808080"></font>
<img src="images/33.GIF">
<%

rs.Movenext

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

<br>
<%
OBJConn.Close
Set rs = Nothing
Set OBJConn = Nothing

%>

</marquee>