Do loop igen....

I min förra tråd "Do loop" löste sig problemet men som vanlig uppstod ett nytt. Den här koden lägger upp mina bilder från en tabell så att dom sorteras efter fältnamnet Subkategori:

   Addera = "SELECT * FROM bilder WHERE Kategori = 'advertising'"
   
   rs.Open Addera, Connect, adOpenStatic, adLockOptimistic %>
   <%	subkategori = 0 %>
		<% Do while Not rs.EOF
		If cStr(rs("Subkategori")) <> cStr(subkategori) then
        subkategori = rs("Subkategori")
        Response.write "<div id=""thumb_br"">_</div> "
    	End if%><span class="thumb"><img src="<% =rs("sokvag_thumb") %>"></span><%rs.movenext
		Loop %>
	<% rs.Close %>

Allt väl så långt men om jag lägger in bilder längre ner i tabellen med Subkategori 1 och det finns bilder med t.ex Subkategori 1 och 2 emellan så hamnar ju inte dom på samma rad som bilderna som ligger först i tabellen. Nån som kan hjälpa mig? Hoppas jag inte förklarade alltför rörigt.

Martin