潘乃宪声乐微博:帮忙实现代码

我在网上找了个北方供求网，我想让推荐的信息后面加个标志，如何实现，有朋友说在信息表里加个判断，但我不会不知道如何实现，希望知道里的朋友能帮忙另外如果方便的话，再给发布的信息加上编号，这样最好
我的QQ：115536669 帮忙的朋友加我，希望交个朋友有机会来我们江苏我请客，呵呵
软件在下面下载
http://www.fyasp.com/Html/Soft/bzcx/141.html
代码如下

<!--开始推荐--><table width="100%" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF">
<%
Dim rdsInfo1
Dim sqlInfo1
Dim intInfoCount1
Dim strInfoClass1
Dim strTopic1

set rdsInfo1 = Server.CreateObject("ADODB.Recordset")
sqlInfo1 = "Select top "&intNewInfoCot&" infokey,tj,state,infoclass,infoadd,topic,jg,pic,color From Dat_Information Where State = 1 order by infokey desc"
rdsInfo1.Open sqlInfo1,Conn,1,1
if not rdsInfo1.EOF then
do while not rdsInfo1.EOF
xxlx3=rdsInfo1("InfoClass")
strTopic1 = leftt(rdsInfo1("Topic"),36)
strjg=rdsInfo1("jg")
pic=rdsInfo1("pic")
strcolor=rdsInfo1("color")
%>
<tr>
<td width="72%" height="25" class="F16">·<span s="font-size: 9pt"><%call gqlx(2,xxlx3)%></span> <a href="View_Info.asp?Id=<% = rdsInfo1("InfoKey")%>" target="_blank" class="a01"><%if strcolor<>"" then%><font color="#<%=strcolor%>"><% = strTopic1%></font><%else%><% = strTopic1%><%end if%></a>
<%if InStr(pic,"OpenFile01.asp?")>0 or InStr(pic,".jpg")>0 or InStr(pic,".gif")>0 or InStr(pic,".bmp")>0 or InStr(pic,".png")>0 or InStr(pic,".bmp")>0 then%>
<font color="#109610"><span s="font-size: 9pt">[图]</span></font><%end if%>
</td>
<td width="14%" height="25" align="center"><%if strjg<>"" and strjg<>"0" then%><font color="#FF0000"><%=strjg%></font> 元<%else%>面议<%end if%></td>
<td width="11%" height="25" align="center"><% = rdsInfo1("InfoAdd")%></td>
</tr>
<tr>
<td width="100%" height="1" colspan="3" background="images/dotline.gif"></td>
</tr>
<%
rdsInfo1.MoveNext
loop
else
%>
<tr>
<td width="100%" colspan="3" height="22"> <font color="#FF0000">对不起!没有相匹配的信息</font>...</td>
</tr>
<%
end if
rdsInfo1.Close
set rdsInfo1 = nothing
%>
</table><!--结束推荐-->