file not found

Varför får jag detta fel:

Microsoft VBScript runtime error '800a0035' 

File not found 

/!egna/laddaupp.asp, line 51

Här är koden:

<%Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 75576 ' Truncate files above 75kb
Upload.Save server.mappath("upload")
For Each File in Upload.Files
bilden=File.ExtractFileName
   If File.ImageType <> "JPG" Then
    File.Delete
    Session("meddelande") = "Du kan bara ladda upp JPG bilder."
     Response.Redirect "foto.asp"
   End If

Next

if bilden="" Then
	response.redirect("foto.asp")
else

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

	SQLPRES2="SELECT * FROM anv WHERE anv='" & 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("bild")<>"bilder/1.jpg" OR rspres2("bild")<>"bilder/2.jpg" OR rspres2("bild")<>"bilder/3.jpg" OR rspres2("bild")<>"bilder/4.jpg" or rspres2("bild")<>"bilder/5.jpg"	then 
			strPath=server.mapPath(rspres2("bild"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
		51-->	objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing

		end if

		bilden="upload/" & bilden
			rspres2("bild")=bilden
			rspres2.Update
	session("bild")="Bilden har blivit uppladdad. Titta på Din profil för att se hur det vart!"
Response.Redirect "foto.asp"
	end if
	end if

%>

Jag tycker nog att felmeddelande är ganska heltäckande. ;)

Filen du försöker ta bort finns inte där du letar efter den.

jooo... de e klart! Men hur får jag bort de? Vet du hur man ändrar i koden för att göra de?

Menar du få bort bilden eller felmeddelandet?

felmeddelandet! Jag vill att bilden ska bli uppladdad! MEn jag vill ha kvar alla grejjer så att filen blir kollad!

jag har testat.... verkar ändå inte vara där! Verkar vara när man tar bort! Kan ni fixa lite fle i denna kod?

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

	SQLPRES2="SELECT * FROM anv WHERE anv='" & username & "'"
	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("bild")<>"bilder/1.JPG"	OR rspres2("bild")<>"bilder/2.JPG" OR rspres2("bild")<>"bilder/3.JPG" or rspres2("bild")<>"bilder/4.JPG" or rspres2("bild")<>"bilder/5.JPG"  then 
			strPath=server.mapPath(rspres2("bild"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			bilden="bilder/1.jpg"
			rspres2("bild")=bilden
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")
		else
			'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		end if
	end if
%>

Bara kolla om det finns några fel! Den e liksom lite buggig!

För det första, ska det inte stå:

objFSO.DeleteFile strpath

?

För det andra, testa att skriv ut strPath. Vad innehåller den? Stämmer den sökvägen?

Om du får ett felmedelande så tar man väl inte bort koden utan redigerar om koden så att den fungerar? :h

Alltså: DeleteFile kan inte hitta filen som ska tas bort då sökvägen är fel. Du får ändra och lägga till så att den letar i rätt katalog och efter rätt fil.

den ska ju hämta ur en databas! Från tabelen "anv", kolumnen "bild". Där är sökvägen rätt! Jag har tittat på servern, bilden finns där! Så hur fixar man koden så att den hittar rätt?

solbulle skrev:

För det andra, testa att skriv ut strPath. Vad innehåller den? Stämmer den sökvägen?

Visa oss, vi vill också se. :)

En liten undran... Borde det inte stå AND istället för OR i den här satsen?

if rspres2("bild")<>"bilder/1.jpg" OR rspres2("bild")<>"bilder/2.jpg" OR rspres2("bild")<>"bilder/3.jpg" OR rspres2("bild")<>"bilder/4.jpg" or rspres2("bild")<>"bilder/5.jpg"	then

Jag tror inte det??? eller??

har prövat med AND funka ej...
Man kan ha flera olika bilder... alternativa! Och man kan bara ha en av dom.. så då borde det vara OR!

Ändrade så att den ser ut så här:

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

	SQLPRES2="SELECT * FROM anv WHERE anv='" & username & "'"
	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("bild")="bilder/1.JPG" OR rspres2("bild")="bilder/2.JPG" OR rspres2("bild")="bilder/3.JPG" OR rspres2("bild")="bilder/4.JPG" OR rspres2("bild")="bilder/5.JPG"  then 
	'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	
		else
		strPath = (rspres2("bild"))				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing
			
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		end if
	end if
%>

Får inge felmeddelanden nu! Men den går inte förbi om man har en uppladdad bild! Den säger iaf att man inte har någon!

En fråga! Min databas ligger i en mapp på servern! Kan det vara så att den söker efter "enmapp/upload/filnamn.jpg"? Iställer för "upload/filnamn.jpg" För databasen ligger i mappen enmapp?

Är det någon som kan göra en ny kod? Lr vet vart man kan ladda ner den?

För det första, jag är ju osynlig, men annars kanske du skulle kunna ta och posta svar på mina motfrågor, då skulle i alla fall problemet i din näst sista fråga vara löst.

TJOSSAN!!!! FÖRLÅT SOLBULLE!!!!! DU VAR OSYNLIG! :P SÅG INTE DITT INLÄGG!! SKA PRÖVA DET!!! FÖRLÅT!

strpath stämmer... den gav rätt adress! Men jag har inte en aning om det ska stå "objFSO.DeleteFile strpath" eller inte! Fick den koden från webforum förut!

Hehe, ingen fara.

Jag förstår mig inte riktigt på dina öppningar av RS egentligen.. har kanske iofs inte med problemet att göra.
Den sista koden du visar tar ju bort bilden OM den inte är någon av de du har med i din IF-sats.
Sen lägger den in "bilder/1.jpg" - Antar att detta är en test.
kika hur detta fungerar:

<%
	SQLPRES2="SELECT bild FROM anv WHERE anv='" & username & "'"

	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("bild")="bilder/1.JPG" OR rspres2("bild")="bilder/2.JPG" OR rspres2("bild")="bilder/3.JPG" OR rspres2("bild")="bilder/4.JPG" OR rspres2("bild")="bilder/5.JPG"  then 
	'användaren har ingen bild
			response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	
		else
		strPath = rspres2("bild")				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile server.mappaht(strpath)
			Set ObjFSO=Nothing
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		end if
	end if
%>

Detta förutsätter att namnet i din db är typ: "bilder/1.jpg" samt att mappen "bilder" ligger i samma mapp som detta script.