Eliminazione file da server

[matmilan]

ciao a tutti ho la necessità di eliminare un file dove il suo nome è salvato in database, ma mi da errore nella parte che ho evidenziato in rosso:

<%
numeroRecord=request("id")
sql = "SELECT nome FROM fotohome where id=" & numeroRecord
%>

<%

Dim objFSO

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


'Il file viene cancellato

objFSO.DeleteFile("percorso\public\" & response.write rs("nome"))

Set objFSO = Nothing

%>

<%

Dim objFSO1

Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")

'Il file viene cancellato

objFSO1.DeleteFile("percorso\public\thumbs\" & response.write rs("nomethumbs"))

Set objFSO = Nothing

%>

come risolvo?

[Vincent.Zeno]

response.write scrive a schermo, è un'istruzione. non è una variabile

objFSO.DeleteFile("percorso\public\" & rs("nome"))

[willybit]

ed inoltre il file system object lavora su percorsi fisici. Devi usare il Server.MapPath

objFSO.DeleteFile(Server.MapPath("percorso\public\" & rs("nome")))

[matmilan]

Mi da questto errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'rs'

/up/elimina.asp, line 38

In rosso la riga 38.

Ecco tutto il codice:

<%
Set conn=Server.CreateObject("ADODB.Connection") 
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/db.mdb")
%>

<%
numeroRecord=request("id")
sql = "SELECT * FROM fotohome where id=" & numeroRecord
%>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>

<%
rs.delete
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

<%
numeroRecord=request("id")
sql = "SELECT nome FROM fotohome where id=" & numeroRecord
%>

<%

Dim objFSO

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


'Il file viene cancellato

objFSO.DeleteFile(Server.MapPath("public\" & rs("nome"))) 

Set objFSO = Nothing

%>

<%

Dim objFSO1

Set objFSO1 = Server.CreateObject("Scripting.FileSystemObject")

'Il file viene cancellato

objFSO.DeleteFile(Server.MapPath("public\" & rs("nomethumbs")))

Set objFSO = Nothing

%>

<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

[optime]

se guardi bene il tuo codice, vedrai che quando usi rs("nome") il recordset è chiuso...

[willybit]

Originariamente inviato da optime
se guardi bene il tuo codice, vedrai che quando usi rs("nome") il recordset è chiuso...

in realtà quando lo usa, rs è Nothing
credo che dovresti fare così

<%
Set conn=Server.CreateObject("ADODB.Connection") 
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/db.mdb")

numeroRecord=request("id")
sql = "SELECT * FROM fotohome where id=" & numeroRecord

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

Dim objFSO

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


'Il file viene cancellato

objFSO.DeleteFile(Server.MapPath("public\" & rs("nome"))) 

'Il file viene cancellato

objFSO.DeleteFile(Server.MapPath("public\" & rs("nomethumbs")))

Set objFSO = Nothing


rs.delete
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

[matmilan]

Ok grazie adesso funziona alla grande !