请教一个ASP问题，谢谢

<%dim num

num=request.QueryString("id")

sql="select * from search_head"

set rs=conn.execute(sql)

if rs.eof and rs.bof then

response.Write("无")

else

do while not rs.eof 

%>

  <a href="123.asp?id=<%=rs("id")%>" >

<%num1=rs("id")%>

<%if num1=num then%>

<font color="#FF0000">

<%else%>

<font color="#000000">

<%end if%><%=rs("search_type")%>

</font></a>

<%

rs.movenext

  loop

  end if

%>

<%=num%>

<%=num1%>