Hvis ingen felter i databasen skrives >Ingen poster..

Hej Alle..

Jeg har dette udemærket script fra html.dk, men jeg kan ikke lige helt greje, hvordan jeg laver en "Intet fundet i databasen" meddelelse..

Håber nogle kan hjælpe.. :)

<%
' Database forbindelse
Set Rs = Server.Createobject("ADODB.Connection")   
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../../database/database.mdb")& ";"

' Hent data fra databasen
Set rsEntries = Rs.Execute("Select * from menuopsaetning where typen = '0' ORDER BY id")

Do
  ' Gem data som kommasepareret liste
  arrID = arrID & "," & rsEntries("ID")
  arrRE = arrRE & "," & rsEntries("RELA")
  arrSU = arrSU & "," & rsEntries("LINK")
  rsEntries.MoveNext
Loop while not rsEntries.eof

' Lav arrays med data
arrID = Split(arrID,",")
arrRE = Split(arrRE,",")
arrSU = Split(arrSU,",")

Rs.Close

' Funktion som undersøger for svar
Function Threads(intID)   
  For m = 1 to Ubound(arrID)
    ' Hvis svar til det indlæg som funktionen er kaldt med
    If Cint(arrRE(m)) = Cint(intID) Then
      ' Tilføj til liste og kald funktionen for at undersøge for svar
      Threads = Threads & "<ul><li><a href=""rediger-div.asp?red=001&ID=" & arrID(m) & """ class=""href"">" & arrSU(m) & Threads(arrID(m)) & "</a></li><br></ul>"   
    End If       
Next
End Function

' Kald funktionen med alle hovedindlæg

%>

<% Response.Write Threads(0) %>