Problemas de alineacion

Hola grupo, hace un tiempo no sabia como hacer para rellenar de a 3

horizontalmentey obtuve el siguiente codigo que esta muy bueno, pero tengo
un problema, y es que no se rellena alineado, es decir centradas y con un
espacion proporcional entre cada imagen, hay veces que salen las 3

juntas hay veces que se separa a mayor distancia solo la tercera, etc.

ESpero que me entiendan, aqui paso el codigo con el que me ayudaron,
funciona bien pero lo deja muy desprolijo.

saludos

chelo


<%
Dim contador, columnas
contador = 1
columnas = 3
Do Until rs.EOF
If contador = 1 Then
Response.Write("<tr>")
End If
%>

<td colspan= "3" height="102" valign="middle" align="center"><font
face="Arial, Helvetica, sans-serif" size="2"><img
src="<%=RS("rutafichero")%>" width="100" height="100"></font></td>

<%
contador = contador + 1
If contador > columnas Then
contador = 1
Response.Write("</tr>")
End If
rs.MoveNext
Loop
' Esto es para rellenar las celdas vacías de la última fila
If contador > 1 Then
For i = contador To columnas
Response.Write("<td>&nbsp;</td>")
Next
Response.Write("</tr>")
End If
%>