lista databas

hej,
2 frågor har jag

1. med koden

<%
Set minCon = Server.CreateObject("ADODB.Connection")
set rsGbok = Server.CreateObject("ADODB.Recordset")
minCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../data/guests.mdb")
strSQL =" SELECT * FROM coach WHERE dag > dateAdd('d',-55,Now()) ORDER by ID DESC"
rsGbok.Open strSQL, minCon, 3, 3
Do While Not rsGbok.EOF
indag = Cdate(rsGbok("dag"))
vdag = DateAdd("h",0,indag)
dat = FirstVersal(WeekDayName(WeekDay(vdag)))&"en "& " den " & fix(DatePart("d", vdag)) & "  " & MonthName(Month(vdag)) &" kl " & FormatDateTime(vdag,4) 
'//Response.Write "<P>" & dat & " skrev coachen:</P>"
Response.Write "<p>" & dat & " skrevs följande info:</p><br />"
'// i VBScript kan man inte använda sig utav radbrytningar därför behövs följande: Replace(rsGbok("Message"), vbCrLf, "<br />" & vbCrLf)

Response.Write "<p class=""meddelande"">" & Replace(rsGbok("mess"), vbCrLf, "<br />" & vbCrLf)  & "</p><br />"

Response.Write "<hr />"

  rsGbok.MoveNext

  Loop
  rsGbok.Close
  Set rsGbok = Nothing
  minCon.Close
  Set minCon = Nothing
%>

får jag det så här konstigt .. skulle uppskatta hjälp med koden
2) med

strSQL = "SELECT TOP 10 * FROM coach ORDER BY ID DESC"

får jag då 2 meddelande om det bara finns 2? men maximalt 10 stycken??

1. Vad är det som är konstigt?
2. Ja