Settaggio ServerVariables

[fabiodm75]

Ciao a tutti,
qualche tempo fa grazie ad uno script ASP molto ben fatto (vedi ) ho realizzato una fotogallery, questa fotogallery è composta di 3 files ASP che leggono le immagini contenute all'interno delle sottocartelle cartelle presenti... mi spiego nella cartella PHOTO dove ho i 3 files ASP inserisco una cartella es. FOTO FABIO questa contine le foto, autoamticamente si crea una photogallery. Molto carina come cosa semplice e veloce! Il problema però è che dovendo implementare un pannello per inserire le foto dinamicamente mi trovo a poter ultizzare unicamente la cartella PUBLIC... ora non posso spostare i 3 files ASP per una serie di ragioni però pensavo di modificare il percorso dove "pescare" le foto però evidentemente sbaglio qualcosa... le variabili da modificare sono strPathInfo e strPhysicalPath come posso cambiare il percorso da quello corrente dove si trova la pagina ad un altro (tipo public/photo)?
Ciao e grazie

Fabio

  ShowSub = request("ShowSub")
  ShowPic = request("ShowPic")
' MEMORIZZO IL NOME DELLA PAGINA CORRENTE  
  strPathInfo = Request.ServerVariables("PATH_INFO")
' MEMORIZZO IL PERCORSO FISICO DELLA PAGINA CORRENTRE
  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
          Response.write "<option "
          If ShowSub=Folder.Name Then
              Response.Write "selected "
          End if
          Response.Write"value='" & CurFile & "?ShowSub="
          Response.Write(Replace(Folder.Name, " ", "%20"))
          response.write "'>"
          Response.Write(Folder.Name & "</option>")
          If ShowSub <= " " Then
            ShowSub = Folder.Name
        End if
      End if
  Next 
  Set objFSO = Nothing

........................................

  strPhysicalPath = Server.MapPath(".\" & ShowSub)
  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files