alora metto la stringa + completa:

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
Request.ServerVariables("REQUEST_METHOD") = "POST"
immagefile = rs_01("immagine")
'CANCELLA IL FILE
set fso=Server.CreateObject("Scripting.FileSystemObjec t")
fso.DeleteFile server.MapPath(("../../dati/" & immagefile))
end if

ma ancora non funzica!