Salve a tutti, ennesimo problema nel problema.

Allora comincio per dire che questo script è fornito da aruba.it
Serve per uploddare file e immagini o quello che volete . . .
Che lo script upload per forza nella cartella "public" e qui nasce il problema.

Ho modificato la path per fare in modo, (qui nasce la speranza) che le immagini o file si uploddino nelle sottocartelle come in es. public/01/02/03/04 ecc. ecc. naturalmente utilizzerò lo script con path singole, e per ogni cartella, all'interno delle medesime, es.public/01 e via discorrendo.

Perchè invece le immagini o file mi finiscono sempre nella cartella public dopo aver modificato la path?

Ecco lo script:

<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
percorso=server.MapPath("/public/01")
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) &filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close%>
<head>