Gæstebog, som kun viser den sidst skrevene besked

Jeg har en gæstebog på min side, når jeg har lagt en besked ind, så kommer den besked frem istedet for alle de andre ?
Jeg har 3 besked i min Gæstebog, men den viser kun den sidste nye besked, selvom de andre ligger inde i dbén.
Koden til at se indholdet ser således ud :

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "select* from gaestebogen ORDER BY ID DESC"
Set rs = Conn.Execute(strSQL)

If rs.Eof then
Response.Write "<br>"
Response.Write "<b>Gæstebogen er tom!</b>"
Response.Write "<br>"
Response.Write "<p></p>"

Else

  strNavn = rs("navn")
 
  strEmail = rs("Email")
 
strHjemmeside = rs("hjemmeside")



strBesked = RS("besked")
strBesked = Replace(strBesked, "<", "&lt;")
strBesked = Replace(strBesked, ">", "&gt;")
strBesked = Replace(strBesked,":)","<IMG SRC=smile.gif>")
strBesked= Replace(strBesked,":-)","<IMG SRC=smile.gif>")
strBesked= Replace(strBesked,":(","<IMG SRC=shy.gif>")
strBesked= Replace(strBesked,":-(","<IMG SRC=shy.gif>")
strBesked= Replace(strBesked,";)","<IMG SRC=bigsmile.gif>")
strBesked= Replace(strBesked,";-)","<IMG SRC=bigsmile.gif>")
strBesked= Replace(strBesked,"(o)","<IMG SRC=blush.gif>")
strBesked= Replace(strBesked,"(O)","<IMG SRC=blush.gif>")
strBesked= Replace(strBesked,"(n)","<IMG SRC=shocked.gif>")
strBesked= Replace(strBesked,"(N)","<IMG SRC=shocked.gif>")
strBesked= Replace(strBesked,":P","<IMG SRC=wink.gif>")
strBesked= Replace(strBesked,":-P","<IMG SRC=wink.gif>")
strBesked= Replace(strBesked,":)(","<IMG SRC=evil.gif>")
strBesked= Replace(strBesked,";(","<IMG SRC=disapprove.gif>")
strBesked= Replace(strBesked,";))","<IMG SRC=dead.gif>")
strBesked= Replace(strBesked,"(?)","<IMG SRC=question.gif>")
strBesked= Replace(strBesked,":)p","<IMG SRC=kisses.gif>")
strBesked= Replace(strBesked,":)?","<IMG SRC=frown.gif>")


Do


' Skriv data


Response.Write "<dt><b>Navn:</b></dt>"
Response.Write "<a href='mailto:" & strEmail & "'>"
Response.Write "<dd>" & strNavn & "</dd>"
Response.Write "</a>"
Response.Write "<dt><b>Hjemmeside:</b></dt>"
Response.Write "<a href='" & strHjemmeside & "' target='_blank'>"
Response.Write "<dd>" & strHjemmeside & "</dd>"
Response.Write "</a>"
Response.Write "<dt><b>Besked:</b></dt><dd>" & strBesked & "</dd>"
Response.Write "<br>" 
Response.Write "<hr>"



  rs.MoveNext
Loop While Not rs.EOF

End if

Conn.Close
Set Conn = Nothing
%>