Vis ikon ved "nyt" i output fra database

Hej!

Jeg har en database med et felt (New), hvor jeg skal markere ja eller nej for "New". Når jeg laver mit output på en hjemmeside skal der vises et ikon ud for de indtastninger, der er nye.

Ikonet hedder "new.gif" og skal placeres ved "Title".

Jeg har brug for lidt hjælp til at komme på rette vej. Se min kode nedenfor.

<%
Option Explicit

Dim objConn
Dim objRs
Dim intPosternumber
Dim strSQL, strCompetence, strTitle, strSubtitle, strLanguage, strPDF_URL, strFilesize, strBGColor, strPosters
Dim blnBGColor

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Database/Posters.mdb")

strSQL = "SELECT Posternumber, Competence, Title, Subtitle, Language, PDF_URL, Filesize FROM Data ORDER BY Posternumber ASC;"
Set objRs = objConn.Execute(strSQL)
If Not (objRs.BOF AND objRs.EOF) Then
    Do While Not objRs.EOF
        intPosternumber = objRs("Posternumber")
        strCompetence = objRs("Competence")
        strTitle = objRs("Title")
        strSubtitle = objRs("Subtitle")
        strLanguage = objRs("Language")
        strPDF_URL = objRs("PDF_URL")
        strFilesize = objRs("Filesize")
       
        If blnBGColor = True Then
            strBGColor = "#FFFFFF"
            blnBGColor = False
        Else
            strBGColor = "#eeeeee"
            blnBGColor = True
        End If           
   
       

strPosters = strPosters & "<tr bgcolor="""& strBGColor &"""><td>"& intPosternumber &"</td><td>"& strCompetence &"</td><td><a href="""&Server.MapPath("./"&strPDF_URL)&""">"& strTitle &"</a></td><td>"& strSubtitle &"</td><td>"& strLanguage &"</td><td>"& strFilesize &"</td></tr>"

        objRs.MoveNext
    Loop
Else
    strPosters = "<tr><td colspan=""2"">Der er ingen Poster!</td></tr>"
End If

objConn.Close
Set objConn = Nothing

Response.Write("<table width=""100%"" border=""0"" cellpadding=""2"" cellspacing=""1""><tr bgcolor=""#CCCCCC""><td>Posternumber</td><td>Competence</td><td>Title</td><td>Subtitle</td><td>Language</td><td>Filesize</td></tr>")
Response.Write strPosters
Response.Write("</table>")
%>