---
title: "Access Denied"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154695-access-denied"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2006-12-09T09:27:36.000Z"
updated: "2006-12-12T21:19:24.000Z"
replies: 14
views: 737
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/154695-access-denied"
---

# Access Denied

## #1 — Jeppeweb, 2006-12-09T09:27Z

Varför får jag Access denied för? Konverterar ett tidigare script som jag använde och det fungerade utmärkt, dvs inget "access denied" där inte.

```
<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("./profilbilder/" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
```

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

## #2 — voigtann1, 2006-12-09T10:44Z

Kan vara databasen du inte har rättigheter att skriva till, där du lägger upp bilderna kollar med din leverantör om skrivrättigehter till profilbilder mappen...

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

## #3 — Jeppeweb, 2006-12-09T11:22Z

Det har ju gått tidigare med ett annat script att ladda upp till den mappen :s

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

## #4 — Jeppeweb, 2006-12-11T20:09Z

\*bump\*

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

## #5 — voigtann1, 2006-12-11T20:16Z

vilken rad får du felmeddelandet på?

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

## #6 — Jeppeweb, 2006-12-12T12:07Z

Persits.Upload.1 error '800a001d' 

Access is denied. 

/upl.asp, line 47

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

## #7 — voigtann1, 2006-12-12T12:14Z

rad 47 är?

hos mig när jag kopiera din kod så är rad 47 en tom rad.. men om jag tar rad 46:

```
Upload.Files(1).MoveVirtual ("./profilbilder/"& Session("id") &".jpg")
```

Kontrollera att du har rättigheter att lägga upp bilder i din "profilbilder" mapp.... det är vad jag får ut av ditt problem....

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

## #8 — Jeppeweb, 2006-12-12T12:20Z

Rad 47 markerad med fet text..
Det har fungerat förut att ladda upp till dessa mapper med ett annat script jag hade innan.

```
<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
[b]Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )[/b]
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>

<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%End If%>
```

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

## #9 — voigtann1, 2006-12-12T12:31Z

bilder\\userspics"& Session("id")

dvs id = 1

kollar då om du har rättigheter att ta bort mappen bidler\\userspics1\\

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

## #10 — Jeppeweb, 2006-12-12T12:39Z

Persits.Upload.1 error '800a001d' 

Access is denied. 

/upl.asp, line 47 

```
<!--#Include File="includes/db.asp"-->

<HTML>
<BODY>
<%
SQL = "SELECT * FROM medlemmar WHERE id="& Session("id")
%>

<%If ("bild_exist") = "0" then%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
<script language="javascript">
alert("Din bild har nu skickats och ska nu bara accepteras av en administratör. Lycka till :)");
document.location = './index2.asp?visa=start';
</script>

<%Else%>

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.DeleteFile Server.MapPath("bilder\userspics"& Session("id") )
Upload.OverwriteFiles = True
Upload.SaveVirtual "./temp_bilder/"
Upload.Files(1).MoveVirtual ("bilder\userspics"& Session("id") &".jpg")

'///SKALA NER BILD///

Set Image = Server.CreateObject("AspImage.Image")

Image.LoadImage(Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))
Image.FileName = (Server.MapPath("bilder\userspics" & Session("id") &".jpg" ))

Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.Resize 90,110

Image.SaveImage
Set Image = Nothing

'///SKALA NER BILD SLUT///

ObjConn.Execute("UPDATE medlemmar set bild_exist='1', bild_accept='0', bild='./bilder/profilbild.jpg' WHERE id="& Session("id") &"")

%>
```

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

## #11 — Jeppeweb, 2006-12-12T12:40Z

Mitt gamla uploadscript såg ut såhär;

```
<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.TotalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCount))

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'Exempel på hur man kan 'plocka ner' andra forumlärelement
'email = UploadRequest.Item("email").Item("Value")

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

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

'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-14
' Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Request.Serv  erVariables("PATH_INFO")),pathEnd)&filename)
filename = session("cmalias") & right(filename,4) 
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("/bilder/userspics" & "\" & filename))

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

MyFile.Close

	SQL = "SELECT bild,bildaccept FROM medlemmar WHERE id = "&Session("cmid")
	Set RecSet = Connect.execute(SQL)

	bild = filename
	bildaccept = "0"

	Connect.Execute("UPDATE medlemmar set bild = '"& bild &"', bildaccept = '"& bildaccept &"' WHERE id = "&Session("cmid")&"")

	Session("upload") = ""

Response.Redirect "main.asp?page=70"
response.write "<b>Filen är nu uppladdad, vänta på att den ska bli accepterad</b>"
Connect.Execute("UPDATE medlemmar set bild = 'ingen', bildaccept = '0' WHERE ID="&Session("cmID")&" ")

%>
<!--#include file="upload.asp"-->
```

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

## #12 — voigtann1, 2006-12-12T12:47Z

Jo men nu är det ditt nya som inte fungera... läs Persits Upload manual och se hur dom gör med behörigeter...

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

## #13 — Jeppeweb, 2006-12-12T14:12Z

Länk? :$

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

## #14 — voigtann1, 2006-12-12T14:15Z

Provat google någon gång? Första länken på ordet "Persits Upload" gav:
<http://www.aspupload.com/manual.html>

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

## #15 — Eclipse, 2006-12-12T21:19Z

I ditt inlägg ovan använder du deleteFile när du ska ladda upp en bild...

Det är kanske därför du får access denied, för den filen du försöker att ta bort inte finns! (Vet inte...??)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/154695-access-denied