problema upload foto in locale

[Lino80]

ciao, vi posto l errore:

HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata
/admin/update_prodotti.asp, line 176
riga 176: Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)


Tipo di browser:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) 

Pagina:
POST 85239 bytes to /ruote2/admin/update_prodotti.asp

POST Data:
error '80020009' 
Eccezione. 

/iisHelp/common/500-100.asp, line 222 
riga 222: Response.Write Server.HTMLEncode(Left(Request.Form, lngMaxFormBytes)) & " . . ."

[Lino80]

percorso = "/public/"

if instr(Intestazione,"UPlFotop") > 0 then
		  i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			NomeFile=""       ' max			
			if i<>0 then
    	    NomeFile = mid(NomeUpload,i + 1)
    	else
    			NomeFile = NomeUpload
    	end if
'     if i<>0 then			
      if NomeFile<>"" then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				if len(w_PFoto)=0 then
					 NomeFile1 = NomeFile
					 w_PFoto = NomeFile					 
 				else
 					 NomeFile1 = w_PFoto	
 				end if	 			
				if DimensioneFile1 > maxdimp then
					 Errore = Errore & "Dimensione immagine piccola ("&DimensioneFile1*0.001 & " kb)  maggiore del limite consentito ("&maxdimp*0.001 & " kb)
"
				else
						EstensioneFile1 = LCase(right(NomeFile,4))				
						if EstensioneFile1 <>".jpg" and EstensioneFile1 <>".gif" then
							 Errore = Errore & "Tipo di file non corretto : "&EstensioneFile1&"
"
						else		 			
								Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
    						textStream.Write ContenutoFile
    						textStream.Close
    						Set textStream = Nothing
						end if
				end if	
	   		Set FSO = Nothing
    	end if
		end if

		if instr(Intestazione,"UPlFotog") > 0 then
		  i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			NomeFile=""       ' max			
			if i<>0 then
				 NomeFile = mid(NomeUpload,i + 1)
    	else
					NomeFile = NomeUpload
    	end if
'     if i<>0 then			
      if NomeFile<>"" then	
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload2 = True
				DimensioneFile2 = len(ContenutoFile)
				if len(w_GFoto)=0 then
					 NomeFile2 = NomeFile
					 w_GFoto = NomeFile					 
 				else
 					 NomeFile2 = w_GFoto	
 				end if	 			
				if DimensioneFile2 > maxdimg then
					 Errore = Errore & "Dimensione immagine grande ("&DimensioneFile2*0.001 & " kb)  maggiore del limite consentito ("&maxdimg*0.001 & " kb)
"
				else
						EstensioneFile2 = LCase(right(NomeFile,4))				
						if EstensioneFile2 <>".jpg" and EstensioneFile2 <>".gif" then
							 Errore = Errore & "Tipo di file non corretto : "&EstensioneFile2&"
"
						else		 			
								Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile2), True, False)
    						textStream.Write ContenutoFile
    						textStream.Close
    						Set textStream = Nothing
						end if
				end if		
	   		Set FSO = Nothing
    	end if
		end if

	next
End if

[FxAndrea]

E' un errore documentatissimo OVUNQUE quello dell' "autorizzazione negata" e anche qui su Html.it.

Riguarda, nel tuo caso, i permessi di scrittura dello user anonimo che probabilmente non hai configurato.

Cerca sul forum che trovi...

In alternativa, non dovesse essere questo, hai percaso la cartella dove tieni i files aperta??

Se cosi', lascia in pace la cartella dei files mentre fai operazioni con lo script su di essa.

Byeeeez

[Lino80]

grazie..era un problema di permessi di IIS

[FxAndrea]

Di nulla