Antal dage på listen.

Hej, jeg skal bruge en funktionen der kan fortælle hvor mange dage - en titel har været på top listen. Er der nogen her der kan bygge sådan en funktion ind i denne kode.

Eller kort kan forklare hvordan det skal gøres?

---------------KODE--------------------------------

<table border="1" cellpadding="2" cellspacing="0" bordercolor="#9FCFFF">
  <tr bgcolor="#BFFFFF">
    <td><font face="Arial, Helvetica, sans-serif">Placering:</font></td>
    <td><font face="Arial, Helvetica, sans-serif">Titel:</font></td>
    <td><font face="Arial, Helvetica, sans-serif">Format:</font></td>
    <td><font face="Arial, Helvetica, sans-serif">Antal Visninger:</font></td>
  </tr>
  <%
Set RS_stat = Server.CreateObject("ADODB.RecordSet")
RS_stat.open "select * from [read] order by Antal DESC" , Conn, 1, 3
plads = 1
do until RS_stat.EOF

strRel = RS_stat("Artikel")

Set RS_Navn = Server.CreateObject("ADODB.RecordSet")
RS_Navn.open "Select * From [tekster] WHERE id = " & strRel &" AND type='Anmeldelse' AND site_type='game'" , Conn, 1, 3

StrTitel = RS_Navn("titel")
StrFormat = RS_Navn("Format")
StrAntal = RS_stat("Antal")

if blnBGColor = True Then
    strBGColor = "#9FCFFF"
    blnBGColor = False
Else
    strBGColor = "#FFFFFF"
    blnBGColor = True
End If



response.write ("<tr bgcolor="""& strBGColor &"""><td><font face='Arial, Helvetica, sans-serif'>" & plads & "</FONT></td>")
response.write ("<td><font face='Arial, Helvetica, sans-serif'>" & StrTitel & "</FONT></td>")
response.write ("<td><font face='Arial, Helvetica, sans-serif'>" & StrFormat & "</FONT></td>")
response.write ("<td><font face='Arial, Helvetica, sans-serif'>" & StrAntal & "</FONT></td></tr>")
plads = plads + 1
RS_stat.movenext
RS_Navn.movenext
loop

%>
</table>