Galleri med max visning af billeder af gangen

Hej der ude

jeg er løbet ind i et problem med at der er formange billeder i nogle af mine gallerier.

så jeg tænkte at kan man gøre sådanne at bruger selv kan vælge om de vil have 10 - 20 - 40 - alle billeder på.

her er min kode håber der er en der kan hjælpe

siden kan ses på www.blueeye.dk under galleri

<!-- #include file="../../common/includes/i_header.asp" -->
<table width="100%">
    <tr>
        <td class="headingTD">Gallery</td>
    </tr>
    <tr>
        <td><hr></td>

    <tr>
        <td class="AdminMenuRoot">
        <a href="gallery_folders.asp">Gallery's</a> -> <%=request("gallery_name")%>
        </td>
    </tr>
    </tr>
    <tr>
        <td class="AdminMenuRoot">&nbsp;
        </td>
    </tr>
</table>

<%
    Dim FSO
    Dim Files
    Dim File
    Dim Count
    Const Columns = 5
    Const ImageWidth = 100
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    Set Files = FSO.GetFolder(request("serverp")).Files
    Set FSO = Nothing
    Response.Write "<TABLE width=""100%"" border=""0"" cellspacing=""10"" cellpadding=""10"">"
    Response.Write "<TR>"
   
    response.write "<br><br><b>You are currently viewing gallery:</b> "
    response.write request("gallery_name")
    response.write "<br><br>"

    Count = 0
    For Each File In Files
        Select Case LCase(Right(File.Name, 3))
            Case "jpg", "gif", "bmp", "png"
                Count = Count + 1
               
                if Count Mod Columns = 1 Then Response.Write "</TR><TR  class='ListHeaderTable'>"
               
                Response.Write "<TD align=""center"" border=""0"" valign=""top"">"
               
                Response.Write "<!--<b>File name:</b>--> <br><A href=""gallery_disp.asp?f=" & request("list_folder") & "&p=" & File.Name & """ target=_self>"
                <!-- Response.Write File.Name -->
                Response.Write "<BR><br><IMG src=""" & request("list_folder") & "/" & File.Name & """ border=""1"" width=""" & ImageWidth & """><BR>"
                Response.Write "</A>"
               
                Response.Write "</TD>"
        End Select
    Next
    Response.Write "</TR>"
    Response.Write "</TABLE>"

    Set File = Nothing
    Set Files = Nothing
%><!-- #include file="../../common/includes/i_footer.asp" -->