Databasen er tom

Hejsa !

Hvordan sætter jeg en tekst ind i dette script, der fortæller at der ingen informationer er i databasen, hvis den er tom.

-----------------------------------------------------------------

<!-- Her starter del 1 -->

<%
Response.Buffer = True

' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("XXXXXX.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

' Her hiver vi indholdet af databasen ud, sorterer dem efter dato
    Sql = "SELECT TOP 1 * FROM server Order By id Desc"

    Set Record =  Con.Execute(Sql)
   
%>


<% Do while Not Record.EOF %>


<!-- Her slutter del 1 -->



<!-- Her er resten af del 1 --> <%
Record.MoveNext
Loop
%>

<%
' Lukke connection
Con.Close
Set Con = Nothing
%>

<!-- Her slutter del 1 forever -->

-----------------------------------------------------------------


Hilsen

CCFischer