Exibir imagens em colunas - ASP + FSO

Galera eu tentei fazer um código para exibir imagens de uma determinada pasta, até ai tudo bem, ai eu precisei colocar elas em colunas, ai de pra bola, li um monte de tópicos aqui mais não entendi como funciona o for each nesse caso, estou colocando o script pra quem puder me ajudar.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include FILE="conex.asp"-->
<%
vpasta = request("pasta")

set listar = Server.CreateObject("adodb.recordset")
sql = "SELECT * FROM GALERIAS WHERE NOME_PASTA_GAL LIKE '%"&vpasta&"%'"
listar.open sql, conex, 3,3

nome_pasta = Server.MapPath(".") & "\" &vpasta
set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set pasta = FSO.GetFolder(nome_pasta)
Set archivos = pasta.Files

contador = 0
for each file in archivos
contador = contador+1
next

response.Write(contador)

linhas = 6
colunas = 2
%>

<table border="1">
<tr>
 <td><%= listar("nome_gal") %></td>
</tr>

<%for each file in pasta.files %>
<% for each contador in linhas%>

 <tr>
 <td><img src="<%response.write(vpasta&"/"&file.name) %>" width="100"></td>
 </tr>
 <%next%>

<%
next
%>

</table>
</body>
</html>

Grato

Edson