Tabort!

<!-- #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?????

Prova om det funkar med

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

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

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

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?

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!

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.

När jag tar bort den raden blir de ett

http 500 internt server fel!

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

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

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.

Jag får detta felmeddelandet!

Microsoft VBScript runtime error '800a0046'

Permission denied

/upload1.asp, line 58

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

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

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!