cancellare file

[Roby_72]

Dim rs_01 
Set rs_01= Server.CreateObject("ADODB.Recordset") 
rs_01.ActiveConnection = Conn 
rs_01.Source = "SELECT * FROM mercatino" 
rs_01.CursorType = 0 
rs_01.CursorLocation = 2 
rs_01.LockType = 1 
rs_01.Open() 
subtime=NOW 
data1 = subtime
strdurata= rs_01("durata")
strscadenza= rs_01("scadenza")
diff = DateDiff ( "d", (data1), (strscadenza) ) 
if diff >=0 then 

response.write (...eccetera) 

else 
MySql = "DELETE From mercatino Where mercatino.ID =" & rs_01("ID") & ";" 
Conn.Execute MySql 
'---------------------elimina file---------------------------------------- 
dim fso 
IF Request.ServerVariables("REQUEST_METHOD") = "POST" then
immagefile = rs_01("immagine") 
'CANCELLA IL FILE 
set fso=Server.CreateObject("Scripting.FileSystemObject") 
fso.DeleteFile server.MapPath(("../../dati/" & immagefile)) 
end if
end if

Roby