Loop problem !

Nu er jeg kommet så langt

' SQL forespørgsel
strSQL = "Select * From mmm Where kategori = 'piger'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)


Do
  ' Personens navn
  strProdukt = rs("produkt")
  strNavn = rs("navn")
  strDato = rs("dato")
 
  ' lav et link til person.asp med Id-værdien i URL
  strLink = "<a href='piger2.asp?id=" & rs("Id") & "'>" & strProdukt & "</a>"

if strLink  <> "" then


  ' Liste med links
  Response.Write "<b>" & strLink & "</b>" &"<br>"
  Response.Write "tilføjet af :  " & strNavn 
  Response.Write "  den  " & strDato &"<br>" &"<br>"

  rs.MoveNext
 
  else
  Response.Write "Ingen bedømmelse i denne kategori !"
Loop While Not rs.EOF


Conn.Close
Set Conn = Nothing
%>

Men jeg kan ikke får den til, at skrive "ingen bedømmelse i denne kategori" når der ingen poster er !!!