skifte baggrundsbillede i tabel

Hej, jeg har nedenstående kode hvor den udskriver 3 billeder pr. række. Jeg har sat et overlay billede over for at gøre det lidt pænere. Mit problem er så, at jeg har 3 forskellige (blå: b, gul: g og grøn: gr) som gerne skulle komme i hver række og på følgende måde:

b g gr
gr b g
g gr b

og så forfra.

                For Each objFile In objFolder.Files
                    strFileExtension = LCase(Mid(objFile.Name, _
                        InStrRev(objFile.Name, ".", -1, 1) + 1))
                   
                If tr >= 3 Then
                  Response.Write "<tr>"
                End If

                    If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then
                        %>
                            <td style="background:url(thumbnail.asp?FileName=<%= objFile.Name %>&amp;size=200) no-repeat; width: 200px; height: 133px;">
                                <span style="position:relative; bottom:8px; right:1px;">
                                  <a href="<%= ImageFilePath & "" & objFile.Name %>" rel="lightbox[roadtrip]">
                                    <img src="images/overlay_blue.png" alt="" class="block"/>
                                  </a>
                                </span>
                            </td>
                        <%
                    End If

                    tr = tr+1

                If tr >= 3 Then
                  Response.Write "</tr>"
                  tr = 0
                End If

                Next

Nogen der kan hjælpe med det på en god måde?