Stop efter 1 dato

Hvordan får jeg nedenstående kode til at vise de forskellige datoer og ikke bare alle de datoer den finde?
nu viser den

01-07-02
01-07-02
01-07-02
01-07-02
02-07-02
02-07-02

og den skal vise

01-07-02
02-07-02

'-----------------------------------------------
<!-- #include file="db.asp" -->
<%


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strDSN
strSQL = "SELECT hvornaar FROM chat ORDER By hvornaar"
Set rs = Conn.Execute(strSQL)

Response.Write "<select name=dato size=1>"
Do While Not rs.EOF
  Response.Write "<option value=""" & rs("hvornaar") & """>" & rs("hvornaar") & "</option>"

  rs.MoveNext
Loop
Response.Write "</select>"
Conn.Close
Set Conn = Nothing

%>