Fotos um do lado do outro em um álbum...

Olá pessoal,

Eu possuo o seguinte código para exibição de fotos em uma pasta:

<% Dim Fso,arq,pasta Set Fso = CreateObject("scripting.filesystemobject") Set pasta = Fso.getfolder(server.mapPath("fotos/"))For each arq in pasta.Files if (contador mod 8) = 0 then response.write "</tr>" response.write "<tr>" end if %><%'/////COMECA AS FOTOSResponse.Write "<div align=""center""><table border=0 cellpadding=15 cellspacing=0 width=""100%"">"nomeArquivo = arq.nameimagem="fotos/"& nomeArquivoResponse.Write "<a name= """&contador&""" target=""_blank"" href="""&imagem&"""><img width=""60"" height=""60"" border=0 src="""&imagem&"""></a>"Response.Write "</table></div>" contador = contador + 1 if contador = 5 then exit for end ifnext %>

Mas gostaria que as fotos ficassem um do lado do outro e não um em baixo do outro, mas quando chegasse em uma quantidade de fotos horizontal, e descia mais uma linha e realizasse o mesmo processo da linha anterior!

Precisso!!

Obrigado!!

Marcus