uso una procedura da anni ed anni dentro lo stesso progetto in alcuni puntimi funziona, prendo ilfile funzionante e cambio solo la directoy di destinazione e non funziona ......

ho parlato con i gestori del server (aruba) e mi hanno detto che la directory dove salvo il file ha i permessi giusti....(public\2008_2009\NewsSY)

<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="ris_outputImagesNews.asp?From=<%=FROM%>&tipolink=<%=tipolink%>">
<INPUT TYPE="file" NAME="blob" class="input2D" >
<INPUT TYPE="submit" NAME="Enter" class="input2D">&nbsp;


ris_outputImagesNews.asp è

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

Sub BuildUploadRequest(RequestBin)
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
If PosFile<>0 AND (PosFile<PosBound) Then
PosBeg = PosFile + 10
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "FileName", FileName
Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
PosBeg = Pos+14
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
UploadControl.Add "ContentType",ContentType
PosBeg = PosEnd+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
Else
Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
PosBeg = Pos+4
PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
End If
UploadControl.Add "Value" , Value
UploadRequest.Add name, UploadControl
BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
Loop
End Sub

Function getByteString(StringStr)
For i = 1 to Len(StringStr)
char = Mid(StringStr,i,1)
getByteString = getByteString & chrB(AscB(char))
Next
End Function

Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function



pathPrivato = "public\"&session("stagione")&"\NewsSY\"
'pathPrivato ="public\2008_2009\NewsSY\"
from = trim(Request("from"))
tipolink = trim(Request("tipolink"))


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,"\"))
filenameest = right(filename,4)
if filenameest = ".gif" or filenameest = ".jpg" then

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

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

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-24
'response.write Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&pathPrivato& filename
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.ServerVariables("PATH_INFO")),pathEnd)&pathPrivato& filename)

For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
'aggiorno il form sottostante
'chiudo finestra

else
response.write "pubblica solo file con estensione gif o jpg"
end if
%>

mi da errore alla linea MyFile.Write chr(AscB(MidB(value,i,1)))

xxxxx\public\2008_2009\Atleti\100_file.jpg
Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/ris_outputImagesNews.asp, line 92

sto uscendo pazzo anche perche la stessa procedura per le altre sezioni funzionano cosa puoi esserE?

grazie per l'aiuto è davvero raccapricciante la cosa...perchè se prendo il file dal server funzionante di altre sezioni e lo ripublico non funziona più mi è successo con una sezione e nn voglio riprovarlo per conferma perchè altrimenti nn mi funziona piu nulla....

chiedo lumi grazie mille.

ps se avete un buon upload funzionante....mi farebbero comodo grazie ancora

Salve ragazzi,
riapro una veccia discussione perchè l'unica risposta
non risolve tutti i problemi.

A me succede la stessa cosa ma il formato del file è quello giusto.
Se utilizzo lo script senza modificarlo va benissimo,
anche se lo modifico con il blocco note funziona.
Il problema sorge quando faccio anche solo una modifica con
Expression Web e l'errore è lo stesso di Syrako.

Se vi va di rispondere al mio caso paranormale sono in attesa.

Gaetano Di Matteo

---

Modificato da gaetanodimatteo il 07 novembre 2010 19.57 -

Grazie Daniele,

potresti consigliarmi un tool, io ho realizzato una routine fatta in casa
ma non mi restituisce alcuna differenza, devo aver sbagliato qualcosa.
Alcune cose del genere mi capitavano anche con Frontpage, quindi una
piccola azione da parte di expression Web sarebbe probabile ma non
riesco a trovarla.

Grazie

Gaetano Di Matteo