list i tabel 3x3

Kan du bruge det her til noget? .. det er en 3x3 tabel du søger ikke?
<%
    intCount = 0
    Response.Write("<table border=""1"">")
    do while intCount < 9
        if (intCount mod 3) = 0 then
            if intCount > 0 then Response.Write ("</tr>")
            Response.Write("<tr>")
            Response.Write("<td>test</td>")
        else
            Response.Write("<td>test</td>")
        end if
        intCount=intCount+1
    loop
    Response.Write("</tr></table>")
%>

Kan du hjælpe mig med at sætte den ind i denne her kode?

<%
                    '//Her lister vi så alle filer i den pågældende mappe
                    Set fsoSystem = CreateObject("Scripting.FileSystemObject")
                    Set fsoFolders = fsoSystem.GetFolder(Server.MapPath("."))
                    set fso = fsosystem.Drives
                            For Each fFolder In fsoFolders.Files
                            strName = LCase(fFolder.Name)
                            intSize = FormatNumber(fFolder.Size, 0, 0, , True)
                            %>
                            <a href=<%=filnavn%>?action=delete_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a><br>
                            <%
                            Next
                    Set fsoFolders = Nothing
                    Set fsoSystem = Nothing
                    %>

<%
'//Her lister vi så alle filer i den pågældende mappe
Set fsoSystem = CreateObject("Scripting.FileSystemObject")
Set fsoFolders = fsoSystem.GetFolder(Server.MapPath("."))
set fso = fsosystem.Drives
intCount = 0

Response.Write("<table border=""1"">")

        For Each fFolder In fsoFolders.Files
        strName = LCase(fFolder.Name)
        intSize = FormatNumber(fFolder.Size, 0, 0, , True)
        if (intCount mod 3) = 0 then
            if intCount > 0 then Response.Write ("</tr>")
            %>
                <tr>
                    <td>
                        <a href=<%=filnavn%>?action=delete_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a>
                    </td
            <%           
        else
                %>
                    <td>
                        <a href=<%=filnavn%>?action=delete_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a>
                    </td
            <%
        end if
        intCount=intCount+1
        %>
        <a href=<%=filnavn%>?action=delete_file&file=<%=strName%>><%=strName%> (<%=intSize%>bytes)</a><br>
        <%
        Next
       
Response.Write("</tr></table>")

Set fsoFolders = Nothing
Set fsoSystem = Nothing
%>

ligger du et svar ?

Åbenbart ikke, men vil have den lukket nu.