DELETE MEN HUR???

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

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å?

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

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

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

Tack nu funkar fint.

Vilken kod använder du?

/ Mikul

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