Listagem de arquivos (FSO)

Olá pesoal, depois de algumas tentativas sem êxito, como não utilizo muito o FSO estou tendo dificuldades para listar em duas colunas os arquivos sem repetição, já tentei de tudo um pouco e sem resultados, creio e deva de ser uma besteirinha, mas a qual solução não encontro, o código é este abaixo que estou usando, desde já agradeço...

<!-- Listagem de pasta --> <table width="150" height="70" border="0" align="left" cellpadding="0" cellspacing="0"> <% Set Fso = Server.CreateObject ("Scripting.FileSystemObject") dir = Server.MapPath("img\colecoes\2006\pri_ver") Set arquivo = Fso.GetFolder(dir) Set arquivos = arquivo.files For Each Item in arquivos %> <tr align="left" valign="top"> <td width="68" height="70"><%Response.Write "<img width=68 height=70 src="&dir&"\"&Item.name&">"%></td> <td width="15"> </td> <td width="68" height="70"><%Response.Write "<img width=68 height=70 src="&dir&"\"&Item.name&">"%></td> </tr> <% Next Set arquivos = nothing Set arquivo = nothing Set Fso = nothing %> </table> <!-- fim da listagem -->