hvordan laver jeg et "ingen poster" resultat

hvis der ingen poster er i min database skriver siden at der er en fejl, da den mindst skal have een post.
hvordan for jeg den til istedet at skrive "der er ingen poster" ???

lidt kode :
---
<%
' SQL forespørgsel
strSQL = "Select * from varekurv "
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do
%>
<%response.write rs("vare")%>
<%
' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
        %>