Cancellare file con fso e fileexists

[Pinetto]

Ciao, io ho uno script che mi cancella dei record e il file all'interno di una cartella.
Il fatto è che a volte il file immagine non esiste, perchè in fase di upload l'utente non inserisce alcune file, così se poi
cancello l'oggetto lo script mi da errore " file non trovato".
Ora non so se bisogna mettere un valore di default se uno non inserisce un'immagine oppure fare un controllo in fase di cancellazione.

Ho pensato di aggiungere il controllo dell'esistenza e se non c'è mi cancella solo i record del db.
Purtroppo lo posso provare stasera mi dite se sono sulla buona strada?
Grazie ciao.
Code-----------------------
<%
dim id,rs,foto
id = cint(Request.QueryString("id"))
if len(id) > 0 and IsNumeric(id)Then

dim upc
dim cn
Set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & Server.MapPath("vetrina.mdb") & ";Persist Security Info=False"
cn.open
SQL ="SELECT * from vetrina where id = " &id

Set Rs = cn.Execute(SQL)
set nomefile1=rs("file1")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If not objfso.fileexists(server.mappath("fotocampernuovi" )&"\"&nomefile1)
Set objFSO = Nothing
else

'Il file viene cancellato
objFSO.DeleteFile(server.mappath("fotocampernuovi" )&"\"&nomefile1)
Set objFSO = Nothing
if (Not Rs.EOF) then
SQL ="DELETE * FROM vetrina where id =" &id
cn.Execute(SQL)
Response.redirect "autoeliminata.asp"

end if
RS.Close

Set RS=nothing

cn.close
Set Cn=nothing
end if
------------

[Roby_72]

Cos'è un problema preventivo?
Provalo e poi vediamo...

Roby

[Pinetto]

Ciao questo pezzo di codice mi dovrebbe cancellare i record e l'immagine associata in una cartella, sia che ci sia tale immagine oppure no, invece mi dice sempre " imp. trovare il file".-
-----------------------------
Set Rs = cn.Execute(SQL)
set nomefile1=rs("file1")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if (Not Rs.EOF) then
objfso.fileexists(server.mappath("fotocampernuovi" )&"\"&nomefile1)
response.write ("mettero un redirect")
'Il file viene cancellato
objFSO.DeleteFile(server.mappath("fotocampernuovi" )&"\"&nomefile1)
Set objFSO = Nothing
'cancello i record nel db
SQL ="DELETE * FROM vetrina where id =" &id
cn.Execute(SQL)
'qui è il problema, se non ce nessuna immagine lo script mi dovrebbe rimbalzare in una nuova pagina tanto i record li ho gia cancellati --
else
if(Rs.EOF) then
response.write ("ancora metto un redirect..")

[Roby_72]

Posta anche la query.

Roby

[heroes3]

ma cosa devi fare qui??

server.mappath("fotocampernuovi")&"\"&nomefile1)
c'è una parentesi di troppo
forse volevi fare una cosa del genere

server.mappath("fotocampernuovi"&"\"& nomefile1)

[Pinetto]

questo è il code..
In realtà se cè l'immagine lo script funziona, se non cè nada.....
Ciao
<%
dim id,rs,foto
id = cint(Request.QueryString("id"))
if len(id) > 0 and IsNumeric(id)Then
dim upc
dim cn
Set cn=Server.CreateObject("ADODB.Connection")
cn.ConnectionString="Provider=Microsoft.Jet.OLEDB. 4.0;Data Source=" & Server.MapPath("vetrinaspeciale.mdb") & ";Persist Security Info=False"
cn.open
SQL ="SELECT * from vetrina where id = " &id

Set Rs = cn.Execute(SQL)
set nomefile1=rs("file1")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if (Not Rs.EOF) then
objfso.fileexists(server.mappath("fotocampernuovi" )&"\"&nomefile1)
response.write ("mettero un redirect")
'Il file viene cancellato
objFSO.DeleteFile(server.mappath("fotocampernuovi" )&"\"&nomefile1)
Set objFSO = Nothing

SQL ="DELETE * FROM vetrina where id =" &id
cn.Execute(SQL)


else
if (Rs.EOF) then

response.write ("ancora metto un redirect..")

end if
cn.Execute(SQL)
RS.Close

Set RS=nothing

cn.close
Set Cn=nothing
end if
end if

%>

[Roby_72]

<% 
dim id,rs,foto 
id = cint(Request.QueryString("id")) 
if len(id) > 0 and IsNumeric(id)Then 
	dim upc 
	dim cn 
	Set cn=Server.CreateObject("ADODB.Connection") 
	cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vetrinaspeciale.mdb") & ";Persist Security Info=False" 
	cn.open 
	SQL ="SELECT * from vetrina where id = " &id 
	Set Rs = cn.Execute(SQL) 
	if not Rs.EOF then
		nomefile1=rs("file1") 
		Dim objFSO 
		Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
		if objfso.fileexists(server.mappath("fotocampernuovi")&"\"&nomefile1) 
			'Il file viene cancellato solo se esiste
			objFSO.DeleteFile(server.mappath("fotocampernuovi")&"\"&nomefile1) 
			Set objFSO = Nothing 
		end if
		'Cancello il record
		SQL ="DELETE * FROM vetrina where id =" &id 
		cn.Execute(SQL) 
	end if 
	RS.Close 
	Set RS=nothing 

	cn.close 
	Set Cn=nothing 
end if 
%>

Roby