Salve a tutti,
anni fa ho fatto un sito web ad un'agenzia immobiliare che prevede l'inserimento delle case in vendita con le immagini tramite uno script asp. Dopo almeno 4 anni in cui il sito ha funzionato perfettamente, ora sta riscontrando alcuni problemi. L'hosting è Noamweb che mi ha scritto di aver fatto alcune modifiche per la sicurezza ma che i problemi che riscontro dipendono dal codice e non da loro. Il database fu creato da mio cugino per cui io non ne capisco granchè...

precisamente l'errore è:

Microsoft VBScript runtime error '800a004c' Path not found /fotografo/Admin/outputFile.asp, line 35
la Line 35 è:

codice:
Set MyFile = ScriptObject.CreateTextFile(percorso & filename)
e l'intero file è:

<%
' Author Philippe Collignon
' Email PhCollignon@email.com

strCategoria = Trim(Request.QueryString("categoria"))
strSottoCategoria = Trim(Request.QueryString("sottocategoria"))

Response.Expires = 0
Response.Buffer = TRUE
Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

percorso = UploadRequest.Item("percorso").Item("Value")
pagina = UploadRequest.Item("pagina").Item("Value")

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

If Instr(contentType, "image") > 0 then

value = UploadRequest.Item("blob").Item("Value")

'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(percorso & filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next

MyFile.Close

Response.Redirect pagina & "?azione=upload&result=OK&document=" & filename & "&percorso=" & percorso &"&categoria=" & strCategoria &"&sottocategoria=" & strSottoCategoria & ""

Else
Response.Redirect pagina & "?azione=upload&result=failed&cause=extension&perc orso=" & percorso &"&categoria=" & strCategoria &"&sottocategoria=" & strSottoCategoria & ""

End If
%>





Qualcuno sa aiutarmi?
grazie