ikke en række men 4 X 4

<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"images.mdb\")
Set rs = Connect.Execute(\"SELECT * FROM kategori\")
if not rs.EOF then
do until rs.EOF
if Cint(Request.QueryString(\"linkid\")) = rs(\"id\") then
    Set rs2 = Connect.Execute(\"SELECT * FROM billeder WHERE katID = \" & request(\"linkid\") )
    counter = 1
    if not rs2.EOF then
      response.write \"<table><tr>\"
      do until rs2.EOF
      %>
        <td>
            <img src=\"IMAGES/<%=rs(\"katnavn\")%>/<%=rs2(\"imgname\")%>\">
        </td>
      <%
        counter = counter + 1
        if( counter = 4 ) then
          counter = 1
            response.write \"</tr><tr>\"
        end if
      rs2.MoveNext
      Loop
        for i = counter to 4
          response.write \"<td>&nbsp;</td>\"
        next
        response.write \"</tr></table>\"
    else
      Response.Write \"Der er endnu ingen billeder i denne kategori\"
    end if
end if
rs.movenext
Loop
else
response.write \"Ingen felter\"
end if
%>