Hjælp igen med at opdele mapper lige som

Benyt noget i denne stil...
Så skal du bare rette de første 4 linier til, så de passer med dit tilfælde...
<%
ImageDir = "../gfx/gifs/Animals/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 27 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p><strong>" & intImgCount & " Billeder - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"
i = 0
For Each Image In objFiles
if i mod 3 = 0 then
response.write "<tr>"
end if
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  If Left(Folder.Name,1)<>"_" Then
      Response.Write "<a href=""" & CurFile & "?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(Folder.Name, " ", "%20"))
      response.write """>"
      Response.Write Folder.Name
    End if

End If
if i mod 3 = 2 then
response.write "</tr>"
end if
i = i+1
Next

strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "   
Next
Response.Write "</p>"
Set objFS = Nothing
%>

Ja men nu er det bare ikke lige sådan jeg gerne vil have det...

Det skal gå ind og bare hentet mapperne, og vise mapperne på siden opdelt i en table af 3 rækker og 9 kolonner.

Den skal overhovede ikke vise nogen filer eller billeder.

Nej, det ved jeg...

Det retter du selv i de første 4 linier...
ved at sætte dem til det som du skriver der hvor du henter oplysningerne om mapperne i dine andre filer..!