输出的CompanyName 多个，我想让其显示一个如何写代码
~~~~~~~~~~~~~
<%
Set Rs = server.createobject("ADODB.Recordset")
TodayDate = Qsite.FormatDate(Date())
strIsLockId = IsLockId("Company")
Sql = "select top "& Qsite.IndNewzp &" * from RecruitTbl where IsPause = '0' and ComId not in ("& strIsLockId &") order by EditDate desc"
Rs.Open Sql , Conn , 1 , 1
If rs.eof and rs.bof then
response.write "<p align='center'><font color='#ff0000'>暂无相关内容</font></p>"
else
%>
<%=Company_Name(Rs("ComId"))%>
~~~~~~~~~
