SELECT DISTINCT......

Nedenstående er en lille del af min kode, men jeg har et lille problem med den. Jeg har brug for at lave en liste med links - som det fremgår af teksten. Men med den sql-sætning kan jeg ikke trække id ud. Hvordan gør man det?

sql = "SELECT DISTINCT emne from pic"
SET rs = Conn.Execute(sql)
DO UNTIL rs.EOF
%>
<li><a href="index.asp?id=<% Response.Write(Request.Querystring("id"))%>&kat=%=rs("id")%>"><%=rs("emne")%></a>
<%
rs.MOVENEXT
LOOP