Udskrivning af tekst, hvis ingen poster vises

Ups. hele koden er her

  Response.Write "<center><font size=2 face=verdana>Vælg sprog:</font><br>" & vbCrLf
    Response.Write "<select onChange=""location.href='sourcecode.asp?category=" & Request.QueryString("category") & "&language='+this.value;"">" & vbCrLf
    Response.Write "<option value=""0"""
    If intLanguage = 0 Then
      Response.Write " selected"
    End If
    Response.Write ">(Alle sprog)" & vbCrLf
    Set objRS = OpenDataBase("../../db/sourcecodes.mdb", "SELECT * FROM languages ORDER BY Name")
    If (Not objRS.BOF) And (Not objRS.EOF) Then
      objRS.MoveFirst
      While Not objRS.EOF
        Response.Write "<option value=" & Chr(34) & objRS("ID") & Chr(34)
        If CLng(objRS("ID")) = intLanguage Then
          Response.Write " selected"
        End If
        Response.Write ">" & FixString(objRS("Name")) & vbCrLf
        objRS.MoveNext
      Wend
    End If
    objRS.Close
    Set objRS = Nothing
    Response.Write "</select>" & vbCrLf
    Response.Write "</center><br>" & vbCrLf

    Set objRS = OpenDataBase("../../db/sourcecodes.mdb", "SELECT * FROM sourcecodes WHERE CategoryID = " & Request.QueryString("category") & " ORDER BY Title")
    If (Not objRS.BOF) And (Not objRS.EOF) Then
      objRS.MoveFirst
      While Not objRS.EOF
        If (intLanguage = 0) Or ((intLanguage > 0) And (objRS("LanguageID") = intLanguage)) Then
          Response.Write "<nobr>" & vbCrLf
          Response.Write "<font face=verdana size=2><b><a href=""sourcecode.asp?category=" & Request.QueryString("category") & "&view=" & objRS("ID") & Chr(34) & ">"
          Response.Write FixString(objRS("Title"))
          Response.Write "</b></font></a><font face=verdana size=1> (" & GetLanguageName(CLng(objRS("LanguageID")), "../../db/sourcecodes.mdb") & ") "
          Response.Write " - Downloadet " & objRS("DownloadCounter") & " gang(e)</font>" & vbCrLf
          Response.Write "</nobr></font><br>" & vbCrLf
        End If
        objRS.MoveNext
      Wend
    End If
    objRS.Close
    Set objRS = Nothing
    Response.Write "<hr>" & vbCrLf
    Response.Write "<center><font face=verdana size=2>[<a href=""sourcecode.asp"">Tilbage</a>]</center></font>" & vbCrLf
  End If
End Sub

Jeg fandt selv ud af det :) Sorry..