---
title: "Microsoft VBScript runtime error '800a0046'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87509-microsoft-vbscript-runtime-error-800a0046"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jlee"
published: "2003-10-02T19:45:10.000Z"
updated: "2003-10-02T21:24:11.000Z"
replies: 12
views: 403
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/87509-microsoft-vbscript-runtime-error-800a0046"
---

# Microsoft VBScript runtime error '800a0046'

## #1 — jlee, 2003-10-02T19:45Z

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?

Permalänk: https://www.webforum.nu/p/87509

## #2 — Palle, 2003-10-02T19:47Z

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

Permalänk: https://www.webforum.nu/p/1173695

## #3 — jlee, 2003-10-02T20:13Z

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"--\>**

Permalänk: https://www.webforum.nu/p/1173720

## #4 — Palle, 2003-10-02T20:17Z

*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](http://www.webforum.nu/misc.php?s=&action=bbcode) . :)

Permalänk: https://www.webforum.nu/p/1173727

## #5 — jlee, 2003-10-02T20:20Z

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?

Permalänk: https://www.webforum.nu/p/1173732

## #6 — Engine^, 2003-10-02T20:22Z

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...

Permalänk: https://www.webforum.nu/p/1173733

## #7 — jlee, 2003-10-02T20:33Z

Denna raden är den som strular:

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

Permalänk: https://www.webforum.nu/p/1173740

## #8 — Engine^, 2003-10-02T20:46Z

> **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...

Permalänk: https://www.webforum.nu/p/1173755

## #9 — jlee, 2003-10-02T20:50Z

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?

Permalänk: https://www.webforum.nu/p/1173763

## #10 — Engine^, 2003-10-02T21:07Z

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).

Permalänk: https://www.webforum.nu/p/1173772

## #11 — jlee, 2003-10-02T21:09Z

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å

Permalänk: https://www.webforum.nu/p/1173776

## #12 — Engine^, 2003-10-02T21:14Z

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?

Permalänk: https://www.webforum.nu/p/1173782

## #13 — jlee, 2003-10-02T21:24Z

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

Permalänk: https://www.webforum.nu/p/1173795

---

Tråden på webben: https://www.webforum.nu/amne/asp/87509-microsoft-vbscript-runtime-error-800a0046