---
title: "Tabort!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/101754-tabort"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "freddssite"
published: "2004-04-18T10:42:23.000Z"
updated: "2004-04-24T22:34:13.000Z"
replies: 13
views: 415
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/101754-tabort"
---

# Tabort!

## #1 — freddssite, 2004-04-18T10:42Z

\<!-- #include file="adovbs.inc" --\>
\<%

	Set Upload = Server.CreateObject("Persits.Upload.1")
	
	Upload.OverwriteFiles = False
	On Error Resume Next
	
	Upload.SetMaxSize 1048576	' Limit files to 1MB
	Count = Upload.SaveVirtual("/db/filer")
	
	
	Set File = Upload.Files(1)
	If File.ImageType = "GIF" or File.ImageType = "JPG" or File.ImageType = "PNG" Then
	
	response.write("bild fil ej tabort\<br\>")%\>
	
	\<%=File.ExtractFileName%\>
	
	\<%
	
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/db/upload.mdb") & ";pwd=;"
	Set RecSet = Server.CreateObject("ADODB.Recordset")

	AdGbook = "SELECT \* FROM annons"

	RecSet.Open AdGbook, Connect, adOpenDynamic, adLockOptimistic

	RecSet.AddNew

	If Upload.Form("namn") \<\> "" Then
	RecSet("namn") = Upload.Form("namn")
	End If
	
	If Upload.Form("telefon") \<\> "" Then
	RecSet("telefon") = Upload.Form("telefon")
	End If
	
	Set File = Upload.Files(1)
	
	RecSet("fil") = File.ExtractFileName
	RecSet("hojd") =  File.ImageHeight
	RecSet("bred") = File.ImageWidth
	
	RecSet.Update
	RecSet.Close
	Connect.Close
	
	else

'Det är här som filen identifieras med den tas ej bort!!!!!!!!!!	
	
	Dim fs, filename 
	filename = File.ExtractFileName 

	Set fs = Server.CreateObject("Persits.Delete.1") 
	
	fs.DeleteFile(Server.MapPath("/db/filer/" & filename)) 
	
	response.write("vanlig fil tabort\<br\>" & filename &"")
		
	end if 

%\>

Filen försvinner inte även att den är indentifierad som en icke bild fil! Va gör jag för fel?????

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

## #2 — Mog, 2004-04-18T11:15Z

Prova om det funkar med

```
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile Server.MapPath("/db/filer/" & filename), True
Set objFSO = Nothing
```

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

## #3 — freddssite, 2004-04-18T11:36Z

Nej de fungerar inte heller! va kan man göra??

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

## #4 — @nders, 2004-04-18T12:12Z

"Fungerar inte" är en ganska dålig felbeskrivning. Vad händer / händer inte? Felmeddelande?

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

## #5 — Mog, 2004-04-18T12:43Z

Testa att skriva ut hela sökvägen till filen så att den stämmer.

```
response.write("vanlig fil tabort<br>" & Server.MapPath("/db/filer/" & filename))
```

 Om den stämmer, kolla rättigheterna på filen så att scriptet får ta bort den. Hade själv strul med det, när jag lade upp filer via ftp fick inte scripten ta bort dessa.

Och som @nders sa:

> "Fungerar inte" är en ganska dålig felbeskrivning. Vad händer / händer inte? Felmeddelande?

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

## #6 — freddssite, 2004-04-18T13:12Z

Jag få detta om jag till ovanstående stäng!

D:\\WWW\\sajtensnamn\\db\\filer\\filensnamn

kan de va att ja inte har har rättigheter att ta bort då eller???

Men jag får ju heller inget felmess....utan allt bara går igenom utan att filen tas bort!

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

## #7 — @nders, 2004-04-18T18:47Z

Det är inte så konstigt att du inte får något felmeddelande när du använder **on error resume next**. Ta bort genast.

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

## #8 — freddssite, 2004-04-19T19:27Z

När jag tar bort den raden blir de ett

http 500 internt server fel! 

hur får man fel kod från detta???

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

## #9 — @nders, 2004-04-19T19:28Z

Man avmarkerar "Friendly error messages" / "Egna http-felmeddelanden" i inställningarna i IE.

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

## #10 — Peeer, 2004-04-19T19:29Z

Stäng av "visa egna HTTP-felmeddelanden" i Internet Explorer så du får ett riktigt felmeddelande istället (verktyg--\> internetalternativ--\> avancerat). Klistra in det meddelandet här.

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

## #11 — freddssite, 2004-04-23T23:47Z

Jag får detta felmeddelandet!

Microsoft VBScript runtime error '800a0046' 

Permission denied 

/upload1.asp, line 58

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

## #12 — Peeer, 2004-04-24T07:04Z

<http://www.webforum.nu/search.php?s=&forumid=22> \-\> 
Permission denied  -\> \*enter\*

Wow.. frågan har dykt upp tidigare. :OO
Tips: Rättigheter för IUSR_XYZ

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

## #13 — freddssite, 2004-04-24T18:16Z

skall man kontakta sitt webbhotell eller skall man göra ngt själv i sin kod???

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

## #14 — Peeer, 2004-04-24T22:34Z

Du kan inte göra det via din kod, men om du har en speciell mapp där det är meningen att du ska ha dina databaser så kan du med fördel lägga filen i den mappen istället. Den mappen borde ha tillräckliga rättigheter. Har du ingen sådan mapp så får du nog kontakta ditt hotell ja!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/101754-tabort