---
title: "delete!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/56211-delete"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Firegamez.com"
published: "2002-10-16T16:33:12.000Z"
updated: "2002-10-22T16:44:46.000Z"
replies: 17
views: 322
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/56211-delete"
---

# delete!

## #1 — Firegamez.com, 2002-10-16T16:33Z

Tjenare! Jag har denna ta bort foto kod! Man ska kunna ta bort sitt foto, och det fungerar! Men om man inte har en bild så kan man ta bort original bilden! Å det vill ja inte! Här e koden:

```
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)	
	
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.open SQL2, Conn, 3,3

	SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
	Conn.execute(SQLPRES2)
		
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
	if not rspres2.eof then
		'om det är en riktig bild, plocka bort den!
		if rspres2("pic")<>"profilbild.jpg"	then 
			strPath=server.mapPath(rspres2("pic"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			bilden="upload/" & "profilbild.jpg"
			rspres2("pic")=bilden
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
				   " för att se hur din presentation ser ut. ")
		else
			'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				   "Klicka på ditt användarnamn till vänster" & _
				   " för att se hur din presentation ser ut. ")
		end if
	end if
%>
```

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

## #2 — @nders, 2002-10-16T16:45Z

Är detta originalbilden?

```
bilden="upload/" & "profilbild.jpg"
```

I så fall, varför jämför du bara med "profilbild.jpg"? **upload/profilbild.jpg** är ju aldrig samma sak som **profilbild.jpg**.

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

## #3 — jboy_87, 2002-10-16T16:46Z

kan du förklara bättre?
men testa 

```
if rspres2("pic") = "profilbild.jpg" then
```

istället för

```
if rspres2("pic")<>"profilbild.jpg" then
```

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

## #4 — solbulle, 2002-10-16T18:09Z

```
if rspres2("pic")<>"upload/profilbild.jpg" then
```

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

## #5 — Firegamez.com, 2002-10-20T18:55Z

Men man kan fortfarande ta bort Profilbild.jpg!

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

## #6 — Nexus86, 2002-10-20T19:18Z

```
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)	
	
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.open SQL2, Conn, 3,3

	SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
	Conn.execute(SQLPRES2)
		
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
	While Not rspres2.eof
		'om det är en riktig bild, plocka bort den!
		if rspres2("pic")<>"upload/profilbild.jpg" then 
			strPath=server.mapPath(rspres2("pic"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			bilden="upload/" & "profilbild.jpg"
			rspres2("pic")=bilden
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
				   " för att se hur din presentation ser ut. ")
		else
			'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				   "Klicka på ditt användarnamn till vänster" & _
				   " för att se hur din presentation ser ut. ")
		end if
            rspres2.movenext
        Wend
%>
```

Du kan ju alltid prova. :)

Edit// Koden såg helt sjuk ut, en liten felskrivning i koden

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

## #7 — Firegamez.com, 2002-10-20T19:25Z

Man kan ändå ta bort den!

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

## #8 — solbulle, 2002-10-20T19:45Z

vad heter bilden i ditt databasfält? Det den heter när du kan plocka bort den?

"upload/profilbild.jpg"  ?

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

## #9 — Firegamez.com, 2002-10-20T19:47Z

det och bara profilbild.jpg men det går ju lätt att ändra

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

## #10 — solbulle, 2002-10-20T19:50Z

I ditt script, om du använder den sista versionen här ger du den ju namnet "upload/profilbild.jpg" Då är det ju bara det som du behöver jämföra med. Jag tycker nog att det måste fungera.

```

if rspres2("pic")<>"upload/profilbild.jpg" then 
			strPath=server.mapPath(rspres2("pic"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			bilden="upload/" & "profilbild.jpg"
			rspres2("pic")=bilden
			rspres2.Update
```

Ett alternativ är att du inte lägger in sökvägen "upload" i databasen, men då måste du ju ta hänsyn till det när du skriver ut bilden. (Samt givetvis när du jämfö)

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

## #11 — solbulle, 2002-10-20T19:54Z

Är det kanske så att den skiljer på gemener och versaler?

profilbild.jpg != Profilbild.jpg ?

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

## #12 — Firegamez.com, 2002-10-20T19:56Z

menar du med stora och små bokstäver??!?!?

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

## #13 — solbulle, 2002-10-20T20:00Z

ja, fast det tror jag iofs inte spelar in.

Men fungerar verkligen inte det övre scriptet?

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

## #14 — Firegamez.com, 2002-10-21T16:22Z

nja! Den går AS seeeeeeeeegggtttt! Så här vart koden:

```
<%
SQL2="SELECT * FROM users WHERE username='" & se & "'"
Conn.execute(SQL2)	
	
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.open SQL2, Conn, 3,3

	SQLPRES2="SELECT * FROM presentation WHERE who='" & se & "'"
	Conn.execute(SQLPRES2)
		
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
	While Not rspres2.eof
		'om det är en riktig bild, plocka bort den!
if rspres2("pic")<>"upload/profilbild.jpg" then 
			strPath=server.mapPath(rspres2("pic"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			bilden="upload/" & "profilbild.jpg"
			rspres2("pic")=bilden
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "<a href=""profil.asp?se=" & se & """>Klicka här </a>" & _
				   " för att se hur din presentation ser ut. ")
		else
			'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				   "Klicka på ditt användarnamn till vänster" & _
				   " för att se hur din presentation ser ut. ")
		end if
        Wend
%>
```

Hoppas det var den jag skulle lägga in den i!?!?!? Lr om jag skulle lägga in de i original koden........ Men denna kod var VÄLDIGT seg!

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

## #15 — Firegamez.com, 2002-10-21T17:01Z

är den ingen som vet?!??!?!

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

## #16 — solbulle, 2002-10-21T17:01Z

> SQL2="SELECT \* FROM users WHERE username='" & se & "'"
> Conn.execute(SQL2)	
> 	
> 	Set Rs2=Server.CreateObject("ADODB.Recordset")
> 	Rs2.open SQL2, Conn, 3,3

Är jag ute o far eller är det inte lite dubbelarbete här?

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

## #17 — solbulle, 2002-10-21T17:03Z

Ja du, varför öppnar du det recordsetet överhuvudtaget? Å nästlar?

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

## #18 — Firegamez.com, 2002-10-22T16:44Z

Varför skulle jag inte göra det?!?!?!

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

---

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