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

%>