if - then - else

I nedenstående kodestump skal jeg have indsat en meddelelse, hvis recordsettet er tomt. Jeg synes, at jeg snart har prøvet alt, men jeg kan ikke få det til at fungere. Kan nogen hjælpe?

strSQL = "SELECT tekst, startdato FROM meddelelse WHERE startdato <= Date()AND slutdato >= Date()AND meddeler='kontor'"

set rs = Conn.Execute(strSQL)


intCount = 0
  Do while NOT (rs.EOF or rs.BOF)
  if (intCount MOD 2 = 0) then
    bgColor = "#cccccc" 'Første farve
    color="#000000"
  else
    bgColor = "#999999" 'Anden farve
    color="#FFFFFF"
 
  end if
  intCount = intCount + 1
 
    Response.write"<tr><td width='100%' bgcolor='" & bgColor & "'><font face=Verdana size=1 color='" & color & "'><p align=left>"&rs("startdato")&":<br>"&rs("tekst")&"</font></td>"
 
rs.MoveNext
    Loop       
Response.write"</tr>"   

        Conn.Close
    Set Conn = Nothing
%>