ingen forekomster, response.write ' ingen forekomster '

Hej
Er der en venlig sjæl der kan hjælpe mig af med en grim fejlmeddelse, og istedetfor skrive 'Der er ingen forekomster i denne kategori'

Problemet ligger i at det ikke er sikkert at der ligger nogle data i netop den database forspørgsel...




......................................
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("db\0ffline.mdb")

strSQL = "Select * From designz Order by brugernavn Desc"
Set rs = Conn.Execute(strSQL)

Do
  strNavn = rs("titel")

  strLink = "<a href='designz.asp?id=" & rs("Id") & "' class='white'>" & strNavn & "</a>"

  Response.Write "<li>" & strLink & "</li>"

  rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing


/0ffline