delete!

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

Ä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.

kan du förklara bättre?
men testa

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

istället för

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

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

Men man kan fortfarande ta bort Profilbild.jpg!

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

Man kan ändå ta bort den!

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

"upload/profilbild.jpg" ?

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

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ö)

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

profilbild.jpg != Profilbild.jpg ?

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

ja, fast det tror jag iofs inte spelar in.

Men fungerar verkligen inte det övre scriptet?

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!

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

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?

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

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