asp+access查询问题,头疼！不知道该怎么问。

<%
dim rsj,rsname
do while not rs.EOF
set rsj=HX_SetRSD(ColumnName,Tablename," where WS_UserName='"&rs("WS_UserName")&"' and year(WS_logtime)="&year(now)&" and month(WS_logtime)="&month(now)&" and day(WS_logtime)="&day(now)&" ")
if rsj.RecordCount<=0 Then
set rsname=HX_SetRSD(ColumnName,"HX_CompanyUser"," where WS_UserName='"&rs("WS_UserName")&"'")
Response.Write rsname("WS_Name")
End if
Rs.movenext
loop
%>

能看懂吗？我不想让它显示这么多名字，只要一个，怎么做？
看来是我问的不清楚了
我的目的是根据一个“名字代码”从一个表获取“今天”这个“名字代码”的数据有几条。则在另一个表中查询，显示出这个代码对应的名字。分别显示出没有数据的名字，有一条数据的名字，有两条数据的名字，有更多数据的名字。
但是，通过以上代码，显示的名字有重复，我不想显示重复的名字该怎么做？
谢谢提供思路。

asp + access 查询问题 asp查询access问题 asp+access数据库查询问题 asp + access 的查询问题 asp+sql查询access的问题？ ASP+Access查询数据库问题高手执教 急急！asp查询access数据库得问题 ASP查询ACCESS数据库数据的问题 ASP,ACCESS,关于查询的问题. 关于asp+access联合查询的问题