cancellare file

[yro]

dovre cancellare un file dentro una cartella in scrittura
ho trovato questo script ma non mi funziona:


dim fso
Request.ServerVariables("REQUEST_METHOD") = "POST"
immagefile = rs_01("immagine")
'CANCELLA IL FILE
set fso=Server.CreateObject("Scripting.FileSystemObjec t")
fso.DeleteFile("../../dati/" & immagefile)


vedete degli errori??

grazie!

[Roby_72]

fso.DeleteFile server.MapPath(("../../dati/" & immagefile))

Roby

[yro]

mi da ancora questo errore


Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'Request.ServerVariables'

[Roby_72]

Togli quella riga, non credo ti serva...

Roby

[yro]

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!

[yro]

mi da questo errore

error '80020009'
Exception occurred.

/piazzaerbe/it/offerhome.asp, line 183


che corrisponde alla riga: strdurata= "" & rs_01("durata") & ""

[Shagrat]

1)il request.servervariables non ti serve quindi levalo,.
2) a rigor di logica io prima cancellerei il file e poi cancellerei il record dal db

[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

[yro]

...

adesso non mi da errore ma mi cancella direttamente il post appena apro la pagina!

non dovrebbe...il post deve essere cancellato solo se diff>=0

[Roby_72]

Da come hai scritto tu è il contrario veramente....

Roby