Microsoft VBScript runtime error '800a0046'

Jag får detta felmeddelande som flera andra har fått här på forumet.
Jag har pratat med admin och bett honom ge mig skrivrättigheter och det säger han att han gjort men får detta fortfarande..min kod ser ut så här:

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

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,"\"))
value = UploadRequest.Item("blob").Item("Value")
If value <> "" then
'koden som skriver filen till disk.
End if

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

'OBS!!!!!raden under här är rad 35 som är problem enligt felmeddelandet

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))

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

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"
%>
<!--#include file="uppladdaren.asp"-->

Går detta att åtgärda tro?

1. Visa gärna hela felmeddelandet
2. Använd [kod]-taggarna när du infogar kod, blir mycket enklare att läsa.

Felmeddelande igen

Microsoft VBScript runtime error '800a0046'

Permission denied

/b1/outputfile.asp, line 35

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

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

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,"\"))
value = UploadRequest.Item("blob").Item("Value")
If value <> "" then
'koden som skriver filen till disk.
End if

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))

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

MyFile.Close

response.write "<b>Filens sökväg:</b> " & Server.mappath(filename) & "<br>"
response.write "<b>Filnamn:</b> " & filename & "<br><br>"
response.write "<img src=""" & filename & """>"
%>
<!--#include file="uppladdaren.asp"-->**

Permission denied betyder att du inte har rättigheter att göra det som du vill.
Ta ett snack med din support igen. :)

Hur du använder [kod]-taggarna hittar du här . :)

Ok..men min support vet nog inte hur jag ska göra för att lyckas med detta.....ingen som kan komma på ngt sätt att kringgå detta problem?

Antar att rad 35 är

MyFile.Write chr(AscB(MidB(value, i, 1)))

Har du full koll på att det är rätt filename? Det borde väl vara det som strular om du nu har rättigheter att skriva i mappen...

Denna raden är den som strular:

Set MyFile = ScriptObject.CreateTextFile(Server.mappath(filename))

Jag skrev:

Har du full koll på att det är rätt filename? Det borde väl vara det som strular om du nu har rättigheter att skriva i mappen...

filen har fått rättighet inte mappen...admin säger att det är så för säkerheten....vad menar du med rätt filename? ska där stå mappens namn som ska laddas upp i?? tex vecka 40 eller ./ om det är samma mapp som scripteet ligger i?

En fil som inte finns kan ju inte ha några rättigheter... Om filen redan finns så måste du lägga till

Set MyFile = ScriptObject.CreateTextFile(Server.MapPath(filename, [b]True[/b]))

Annars kommer inget att hända med filen.

Med rätt filename menar jag: innehåller din variabel filename det den ska (filens namn med andra ord).

ok, med andra ord så måste hela mappen ha rättighet eftersom en fil ska läggas till mappen som man inte vet namnet på

Ja, du måste ha rättigheten Create i mappen du vill skapa filen i.

jlee skrev:

mappen som man inte vet namnet på

Eh... va?

Jag menar filen som man inte vet namnet på i Mappen "b1"