No voy a leer todo el código (es demasiado xD), pero el truco es basicamente poner a contar una variable i=1....n , y luego con Mod(X) = 0 sacar las tablas. Algo así
response.write "<tr>"
do while not mr.eof
response.write "<td><img src=....></td>"
if i mod3 = 0 then response.write "</tr><tr>"
i=i+1
mr.movenext
response.write "</tr>"