Hi all,<BR><BR>I have a script that pulls some pictures from a file. It comes out in one long column. I need it to give me four pictures per rows. How can I do that? <BR><BR>Here is the script:<BR><%PicPath = "PicturesCurrent" 'Set Path Up<BR><BR> 'Create the FileSystemObject object<BR> Set fs = Server.CreateObject("Scripting.FileSystemObject")< BR> Set f = fs.GetFolder(Server.MapPath(PicPath))<BR> <BR> Response.Write "<TR>" <BR><BR> 'Use a For Each ... Next loop to display the files<BR> <BR> For Each fn in f.Files<BR> If Right(fn.Name,4) = ".gif" Then<BR> pictures = fn.name<BR> %><BR> <TD Width="17%" Height="19" align=center valign=top><IMG Border="0" SRC="<% =PicPath & "\" & pictures%>" WIDTH="100" HEIGHT="100"></TD></TR><BR> <TR><TD><%Response.Wri te Replace(pictures,".gif","")%></TD></TR><BR><%End If<BR>Next%> <BR><BR>I guess that the "For Each" statement is not good, but what should I replace it with? What I have so far is each picture and the person's name under it in one column. I need to have four of them on each row.<BR><BR>Thank you very much for your help.<BR>Sophie.