sql="select top 200 * from Posts where UserName='"&UserName&"' and IsTopic=0 order by id Desc"
==>
sql="select distinct top 200 okid from Posts where UserName='"& UserName &"' and IsTopic=0"
or
sql="select top 200 okid from Posts where UserName='"& UserName &"' and IsTopic=0 group by okid"
<%
sql = "select distinct top 200 okid from Posts where UserName='" & UserName & "' and IsTopic=0 order by id Desc"
Rs.Open sql,Conn,1,1
Do While Not RS.EOF
okid = Rs("okid")
Response.Write(okid)
Response.Write("<br>")
Rs.MoveNext
loop
Rs.Close
%>
sql="select top 200 * from Posts where UserName='"&UserName&"' and IsTopic=0 group by okid"
Rs.Open sql,Conn,1
Do While Not RS.EOF
okid=Rs("okid")
Response.Write(okid)
Response.Write("<br>")
Rs.MoveNext
loop
Rs.Close
sql="select top 200 * from Posts where UserName='"&UserName&"' and IsTopic=0 order by id Desc"
Rs.Open sql,Conn,1
Do While Not RS.EOF
okid=Rs("okid")
Response.Write(okid)
Response.Write("<br>")
Rs.MoveNext
loop
Rs.Close