ciao ragazzi premetto che non sono uno sviluppatore asp ma un web designer.

mi sono messo un po' in un casino:
ho ereditato un sito in asp al quale ho cambiato la grafica e lo utilizzato per una assoiazione no profit.

c'è una rubrica di news che viene aggiornata da backend
con i seguenti campi: titolo, testo della news e foto.

finchè aggiorno le news senza uploadare la foto nessun problema.

quando però aggiungo la foto mi da questo errore:

codice:
Microsoft VBScript runtime error '800a0046'

Permission denied

/backend/news_write.asp, line 62
e il file in questione è questo:

[CODE]<%@ LANGUAGE="VBSCRIPT" %>

<%Response.Buffer = True%>
<%If Session("log")<>"ok" then
response.redirect "default.asp"
end if
%>
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
%>





<html>
<head>
</head>

<body>

[b]<%Dim str_param,objRS, parametro,cerca_prodotto,NID

Dim intCount
Dim item
Dim codice
Dim dir



Dim cercadoc,ID,objShopRS,sez,testo


intCount=0
Dim errore,byteCount,RequestBin
errore=False
img=""
imgG=""

'Qui va la copia dei files
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest,file,img,imgG
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin


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

If filename<>"" Then
value = UploadRequest.Item("nfile").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")))-22

img= filename'Replace(Time(),".","")&
Set MyFile = ScriptObject.CreateTextFile("d:\inetpub\webs\combo jazzclubcomimg\"&img)

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


'-----------
Set objShopRS=Server.CreateObject("ADODB.Recordset")

If UploadRequest.Item("NID").Item("Value")<>"" Then
cerca_prodotto="SELECT * FROM news WHERE nid="&UploadRequest.Item("NID").Item("Value")
objShopRS.Open cerca_prodotto, objConn,adOpenKeySet, adLockOptimistic
Else

objShopRS.Open "NEWS", objConn,adOpenKeySet, adLockOptimistic,adCmdTable
objShopRS.AddNew
End If

If (img<>"") Then
objShopRS("NFOTO")=img
End If

objShopRS("NTESTO")=UploadRequest.Item("testo").It em("Value")
objShopRS("NTITOLO")=UploadRequest.Item("titolo"). Item("Value")
objShopRS("ndata")=Now()

objShopRS.Update
objConn.Close
Set objconn=Nothing

%>

<%
'Ora che hai finito puoi andare

Response.redirect "home_back.asp?msg=Operazione effettuata con successo"


'----------------------

%>