problema nell' upload di file immagine

[jarlaz]

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 è:

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

[tas]

Forse nel percorso dove tenti di scrivere il file ti mancano i diritti di scrittura.

[Roby_72]

Stampa il valore:

response.write(percorso & filename)

così verifichi cosa non trova.

Roby

[jarlaz]

non credo siano problemi di permessi perchè li ho controlalti più di una volta e li ho in tutte le cartelle...
@Roby...come si fa a fare la stampa di quella stringa?scusa l'ignoranza ma non so nemmeno che significa... :S

[wallrider]

con "stampa" intendeva "stampa a video"
quindi basta mettere

Response.write(percorso & filename)

nel posto giusto ed eseguire la pagina

[jarlaz]

no, continuo a non capire. O meglio non so come farlo. Cosa devo fare precisamente con questo Response.Write? Devo scriverlo nel codice? dove, come? Scusate raga ma non ho mai operato con l'asp...

[Roby_72]

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

Lo devi scrivere nel codice in questo punto, anche con Blocco Note.
E salvare la pagina.

Roby

[jarlaz]

ok...eseguendo lo script mi esce quest'errore:

D:\vhosts\cifegimmobiliare.it\httpdocs\fotografo\f otografie\calamaio.jpg

[Roby_72]

E' giusto?

Roby

[jarlaz]

non so il "d:\vhosts" se viene sempre inserito ma in generale il percorso della cartella dove vengono inserite le immagini è httpdocs\fotografo\fotografie...