---
title: "DELETE MEN HUR???"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/60563-delete-men-hur"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2002-11-29T08:01:37.000Z"
updated: "2002-11-29T19:13:05.000Z"
replies: 7
views: 275
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/60563-delete-men-hur"
---

# DELETE MEN HUR???

## #1 — Ivar, 2002-11-29T08:01Z

Hej !
Nu har jag fastnat med DELETE koden undrar om någon kan hjälpa mig.
Följande kod fungerar men den tar bort bara från databasen. Jag sparar bilderna i mappen (bilder). Alltså om jag vill DELITA från databasen då ska bilden också DELITA…

\<%
dim classifieds
if trim(request("delete"))\<\>"DELETE" then 
showheader "Ta bort en annons"
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
set classifieds = server.createobject("ADODB.recordset")
classifieds.open \_
 "select \* from items where id=" & \_
 request("id"), connect
 showitem classifieds("item"),classifieds("description"),\_
 classifieds("price"),classifieds("phone"),classifieds("email"),\_
 classifieds("stad"),classifieds("dateCreated"),classifieds("fileName")
Dim fs, filename
filename = Request.Querystring("filename")

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

If fs.FileExists(Server.MapPath("ivica1/bilder/" & filename)) Then
Response.write "visst, den finns!"
'fs.DeleteFile(Server.MapPath("/images/upload/" & bild))
Else
Response.write "Duh.. finns jue inte!"
End If

%\>
Om du är säker på att du vill ta bort din annons skriv DELETE
i rutan nedanför.\<p\>
\<form method="post" action="delad.asp?id=\<%=request("id")%\>"\>
\<table\>
\<tr\>\<td\>skriv DELETE:\</td\>
\<td\>
        \<input type="text" name="delete" size="25" title="DELETE" value="DELETE"\>
      \</td\>\</tr\>
\<tr\>\<td\>\<input type="submit" value="Ta bort"\>\</td\>\</tr\>
\</table\>
\</form\>
\<% else %\>
\<% 
dim query, connect, place
showheader "Ta bort en annons"
'on error resume next
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
set classifieds = server.createobject("ADODB.recordset")
query = "SELECT \* FROM items where id=" & \_
request("id")

   classifieds.open query,connect,adopendynamic,adlockoptimistic
   classifieds.delete

if err.number = 0 then %\>
\<font size="5"\>\<i\>Din annons har tagits bort.\</i\>\</font\> 
\<p\>
\<a href="default.asp"\>Hem\</a\>\<p\>
\<% else %\>
Det blev något fel i borttagandet av din annons.\<br\>
Error #\<%=err.number%\>: \<%=err.description%\>
\<% end if %\>
\<% end if %\>

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

## #2 — Peeer, 2002-11-29T08:03Z

```
Response.write "visst, den finns!" 
'fs.DeleteFile(Server.MapPath("/images/upload/" & bild)) 
Else
```

Du har ju kommenterat bort delete-raden (med ett  ') ta bort det tecken så funkar det nog bättre

```
Response.write "visst, den finns!" 
fs.DeleteFile(Server.MapPath("/images/upload/" & bild)) 
Else
```

Sen undrar jag om det är rätt här

```
If fs.FileExists(Server.MapPath("ivica1/bilder/" & filename)) Then 
Response.write "visst, den finns!" 
fs.DeleteFile(Server.MapPath("/images/upload/" & bild))
```

 Du kollar först om en speciell fil finns, finns den så väljer du att ta bort en annan. Ska det vara så?

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

## #3 — Ivar, 2002-11-29T09:19Z

Ok… fel av mig 
Mappen heter bilder och bildfilerna är JPG eller GIF .
Hur refererar jag borttagningen samtidigt från databasen och filen i mappen (bilder)?

 \<%
dim classifieds
if trim(request("delete"))\<\>"DELETE" then 
showheader "Ta bort en annons"
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
set classifieds = server.createobject("ADODB.recordset")
classifieds.open \_
 "select \* from items where id=" & \_
 request("id"), connect
 showitem classifieds("item"),classifieds("description"),\_
 classifieds("price"),classifieds("phone"),classifieds("email"),\_
 classifieds("stad"),classifieds("dateCreated"),classifieds("fileName")

%\>
Om du är säker på att du vill ta bort din annons skriv DELETE
i rutan nedanför.\<p\>
\<form method="post" action="delad.asp?id=\<%=request("id")%\>"\>
\<table\>
\<tr\>\<td\>skriv DELETE:\</td\>
\<td\>
        \<input type="text" name="delete" size="25" title="DELETE" value="DELETE"\>
      \</td\>\</tr\>
\<tr\>\<td\>\<input type="submit" value="Ta bort"\>\</td\>\</tr\>
\</table\>
\</form\>
\<% else %\>
\<% 
dim query, connect, place
showheader "Ta bort en annons"
'on error resume next
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
set classifieds = server.createobject("ADODB.recordset")
query = "SELECT \* FROM items where id=" & \_
request("id")

   classifieds.open query,connect,adopendynamic,adlockoptimistic
   classifieds.delete

if err.number = 0 then %\>
\<font size="5"\>\<i\>Din annons har tagits bort.\</i\>\</font\> 
\<p\>
\<a href="default.asp"\>Hem\</a\>\<p\>
\<% else %\>
Det blev något fel i borttagandet av din annons.\<br\>
Error #\<%=err.number%\>: \<%=err.description%\>
\<% end if %\>
\<% end if %\>

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

## #4 — mikul, 2002-11-29T09:39Z

Ett tips:

Använd \[ K O D \] tagarna :e
Det blir lättare för oss att läsa koden och hitta eventuella fel=)
Typ nåt sånnt hät:

```
<% 
dim classifieds 
if trim(request("delete"))<>"DELETE" then 
	showheader "Ta bort en annons" 
	set connect = server.createobject("ADODB.connection") 
	Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
	set classifieds = server.createobject("ADODB.recordset") 
	classifieds.open _ 
	"select * from items where id=" & _ 
	request("id"), connect 
	showitem classifieds("item"),classifieds("description"),_ 
	classifieds("price"),classifieds("phone"),classifieds("email"),_ 
	classifieds("stad"),classifieds("dateCreated"),classifieds("fileName") 

	Dim fs, filename 
	filename = Request.Querystring("filename") 

	Set fs = Server.CreateObject("Scripting.FileSystemObject") 
	
	If fs.FileExists(Server.MapPath("ivica1/bilder/" & filename)) Then 
		Response.write "visst, den finns!" 
		fs.DeleteFile(Server.MapPath("/images/upload/" & bild)) 
	Else 
		Response.write "Duh.. finns jue inte!" 
	End If 

%> 
	Om du är säker på att du vill ta bort din annons skriv DELETE 
	i rutan nedanför.<p> 
	<form method="post" action="delad.asp?id=<%=request("id")%>"> 
	<table> 
	<tr><td>skriv DELETE:</td> 
	<td> 
	<input type="text" name="delete" size="25" title="DELETE" value="DELETE"> 
	</td></tr> 
	<tr><td><input type="submit" value="Ta bort"></td></tr> 
	</table> 
	</form> 
<% 

else

	dim query, connect, place 
	showheader "Ta bort en annons" 
	'on error resume next 
	set connect = server.createobject("ADODB.connection") 
	Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" 
	set classifieds = server.createobject("ADODB.recordset") 
	query = "DELETE items where id=" & _ 
	request("id")
	Connect.Execte query,,128
	 
	
	
	if err.number = 0 then  
		Response.write "<font size=""5""><i>Din annons har tagits bort.</i></font><p>"_ 
		& "<a href=""default.asp"">Hem</a><p>" 
	else 
		Response.write "Det blev något fel i borttagandet av din annons.<br>"_
		& "Error #"& err.number &":" "& err.description 
	end if
end if
%>
```

/ Mikul

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

## #5 — Ivar, 2002-11-29T10:23Z

Hej!
Då får jag felmeddelande (Duh.. finns jue inte!)

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

## #6 — Ivar, 2002-11-29T10:44Z

Tack nu funkar fint.

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

## #7 — mikul, 2002-11-29T13:23Z

Vilken kod använder du?

/ Mikul

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

## #8 — Ivar, 2002-11-29T19:13Z

Ciao!
Jag använde följande kod och det funkar bara fint. 

\<%
Dim fs, filename 
filename = Request.Querystring("filename") 

Set fs = Server.CreateObject("Scripting.FileSystemObject") 
	
If fs.FileExists(Server.MapPath("bilder/" & classifieds("filename"))) Then 
Response.write "Finns!!!" 
fs.DeleteFile(Server.MapPath("bilder/" & classifieds("filename"))) Else 
Response.write "Filen finns inte!" 
End If
%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/60563-delete-men-hur