billede kalender arkiv

jeg er ved at lave et billede kalender med et arkiv... men nu er jeg løbet ind i et problem som jeg ikke kan finde en løsning på..... alle billederne bliver gemt i en DB
koden neden under lister alle billederne.... men det er ikke lige det den skal.... den skal kun liste indtil at den kommer til den nuværende dato så man ikke kan se de næste dags billeder..
den tabel som dato'en ligger i hedder "description"

håber der er nogen der kan hjælpe

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM myimages"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("aspupload.mdb")
rs.Open strSQL, strDSN, 1


intPage = Request("page")
req = request.querystring("ID")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If

maxsize = 0
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 1
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Billede " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
        Response.write "<img Src=tubgetImage.asp?ID=" & req & ">"
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Vælg Billede "
For intNum = 1 To intPageCount
    Response.Write "<a href=arv.asp?page=" & intNum & "&ID=" & intNum&">" & intNum & "</a> "
Next

Response.Write "<br>"
If Clng(intPage) > 1 Then
    Response.Write "<a href=arv.asp?page=" & intPage - 1 & "&ID=" & req - 1&">Previous page</a> "
Else
    Response.Write "Previous page"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=arv.asp?page=" & intPage + 1 & "&ID=" & req + 1&">Next page</a> "

Else
    Response.Write "Next page"
End If
%>



/Frank Thomsen