Problemi con delete

[lory70]

Salve a tutti ho un problema ad eliminare le foto con il seguente codice il record riesco ad eliminarlo .. potreste gentilmente aiutarmi .

<%

id_annuncio = request("id_annuncio")


Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/public/db_db/mercatino.mdb") 
objConn.Open strConn
   

SQL= "SELECT foto FROM messaggi WHERE id_annuncio="&id_annuncio&""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, objConn

if not RS.eof then
file_collegato = RS("foto")
end if

RS.close
set RS = nothing


path_file="/public/foto_annunci/"

Set FileObject=CreateObject("Scripting.FileSystemObject")
dir_file=Server.MapPath(path_file)
if (FileObject.FileExists(dir_file & "/" & file_collegato)) then 
FileObject.DeleteFile(dir_file & "/" & file_collegato)
end if

Set FileObject=Nothing


SQL= "DELETE * FROM messaggi WHERE id_annuncio="&id_annuncio&""
objConn.Execute SQL


%>

[optime]

immagino che quando dici che non riesci ad "eliminare la foto" intendi "eliminare il file"...

fatti stampare questo valore

(dir_file & "/" & file_collegato)

e controlla che sia giusto

[lory70]

Ciao optime per la risposta posto il codice modificato e funzionante ..

<%

id_annuncio = request("id_annuncio")


Set objConn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/public/db_db/mercatino.mdb") 
objConn.Open strConn
   

SQL= "SELECT foto FROM messaggi WHERE id_annuncio="&id_annuncio&""
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, objConn

if not RS.eof then
file_collegato = RS("foto")
end if

RS.close
set RS = nothing

 

Dim objFSO 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 

percorso_completo = Server.MapPath("/public/foto_annunci/" & file_collegato) 

objFSO.DeleteFile(percorso_completo) 

Set objFSO = Nothing 

SQL= "DELETE * FROM messaggi WHERE id_annuncio="&id_annuncio&""
objConn.Execute SQL

Response.Redirect("annunci.asp")

%>

[optime]

optime!