Pageing og bilder i tabell 5x4, lite problem

Jeg har en tabell som lister ut bilder 5x4 som fungerer fint, problemet er at hvis en post ikke har bilde så skal den hoppe til neste post som har bilde. Men min kode er det slik:

Totalt 73 poster:

Side 1 = 20 poster (Hvis 2 poster ikke har bilde så vises de 2 siste som 2 første på neste side.
Side 2 = 20 poster
Side 3 = 20 poster
Side 4 = 13 poster

Her er min kode:
<%
If not adoRs.EOF Then
    ShowPage = CInt(Request.QueryString("ShowPage"))
    PageSize = 20
    adoRs.PageSize = PageSize

    NumOfPages = adoRs.PageCount
    If ShowPage < 1 then
            ShowPage = 1
    ElseIf ShowPage > NumOfPages Then
            ShowPage = NumOfPages
    End If

    adoRs.AbsolutePage = ShowPage
End if

Count = 1 
i = 0
x = 1
strBgColor = "F4F2EE"
%>
<table width="558" border="0" cellspacing="0" cellpadding="0"> <tr>
<%
Do While Not adoRs.EOF and not i = PageSize
    'Hvis posten har bilde
    If adoRs("ProduktBilde1") <> "" Then
        %>
            <td valign="top" align="middle" height="117" style="position:relative;">
                <a href="index.asp?Lang=<%=strLanguageID%>&Action=ProduktView&ID=<%=adoRs("ProduktID")%>"><img src="PRODUKTUTSTILLING/files/ProduktBilder/<%=adoRs("ProduktBilde1")%>" width="90" height="90" border="0"><img src="images/ramme_liten.gif" style="width:90px;heigh:90px;position:absolute;left:0;cursor:hand;" border="0"><br><%=adoRs("ProduktNavn")%></a>
            </td>
            <%If count <> 5 Then%>
            <td height="90" width="27">&nbsp;</td>
            <%End if%> 
        <%

        If count = 5 Then
            Response.Write("</tr><tr>")
            Count = 0
        End if

        count = count + 1
        i = i + 1
        x = x + 1
    'Hvis posten ikke har bilde
    Else
        Count = Count   
        i = i
        x = x
    End if   
   
    adoRs.MoveNext
Loop
%>