ASP Mappe

Hej.

jeg har et sciprt, der laver en menu ud fra de mapper der ligger i samme mappe som scriptet. men jeg vil gerne have at den går ind i en mappe der har stien images/collection/

<%
  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
  strPathInfo = Request.ServerVariables("PATH_INFO")
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFile = objFSO.GetFile(strPhysicalPath)
  Set objFolder = objFile.ParentFolder
  Set objFolderContents = objFolder.Files
 
  For each Folder in objFolder.SubFolders
      If Left(Folder.Name,1)<>"_" Then
      name = Replace(Folder.Name, " ", "%20")
    Response.write "<a href='PhotoAlbum.asp?ShowSub=" & name & "' target='main'>"
          Response.Write(Folder.Name & "</a><br>")
         
          If ShowSub <= " " Then
            ShowSub = Folder.Name
        End if
      End if
  Next
  Set objFSO = Nothing
%>