Hjælp til ASP Classic script

Hej

Jeg har denne ASP Script kode:

<%
set conn = server.CreateObject("adodb.connection")
set rs = server.CreateObject("adodb.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../database/kdate.mdb")

strSQL = "Select Top 5 * From kdate Order By DATO Desc"
Set RS = Conn.Execute(strSQL)

ArrBeskrivelse = ""
ArrDato = ""
rs.movefirst
do while not rs.eof
tekst = tekst & rs("tekst") & ","
dato = dato & rs("dato") & ","
rs.movenext
loop
Arrtekst = Split(tekst, ",")
Arrdato = Split(dato, ",")
rs.movefirst
i = 0
total = 0
response.write "<table><tr>"
do while not rs.eof
i = i + 1
total = total + 1
response.write "<td width='110' height='100'><img width='100' height='120' src='" & rs("placering") & "'"
response.write "" & rs("tekst") & "'></td>"

if i = strPageSize then
response.write "</tr><tr>"
iNummer = Cint(total)-Cint(strPageSize)
for ie = 1 to strPageSize
response.write "<td width='100' height='100'>"
if Arrtekst(iNummer) = "" then
response.write "Ingen tekst"
else
response.write Arrtekst(iNummer)
end if
response.write "<br>Oprettet: " & Arrdato(iNummer) & "</td>"
iNummer = iNummer + 1
next
response.write"</tr><tr>"
i = 0
end if
rs.movenext
loop

if i < strPageSize then
iNummer = Cint(total-i)
response.write "</tr><tr>"
for ie = 1 to i
response.write "<td width='100' height='100'>"
if Arrtekst(iNummer) = "" then
response.write "Ingen tekst"
else
response.write Arrtekst(iNummer)
end if
response.write "<br>Oprettet: " & Arrdato(iNummer) & "</td>"
iNummer = iNummer + 1
next
response.write "</tr>"
end if
response.write "</table>"
%>

Sagen er at jeg vil have vist de 5 nyeste poster stillet op i en tabel 1 2 3 4 5

men sådan som koden er lige nu sker dette:

1 2 3 4 5 kommer rigtig nok frem på siden, men den forsætter så med at sætte 6 7 8 9 10 osv ind nedenunder.

Er der en det kan hjælpe med at rette min kode til, så den kun viser de 5 nyeste poster og ikke alle på en gang.

På forhånd tak.

Jan