Ciao raga , ho fatto questo script per l'eliminazione di un'immagine sia dal database che dalla cartella del server , ma non elimina un cavoolo !! xo non da nessun errore
<%
Perc = Request.QueryString("image")
DestinationPath = Server.mapPath("public\images\")
str_PercorsoImage = (DestinationPath +"\"+ str_users_code+"\"+Perc)
'percorsofoto = ("public\images\"+str_users_code+"\"+Perc)
If Request.QueryString("step") = 2 Then
'Determino il timeout dello script
Server.ScriptTimeout = 90
'Determino le dimensioni delle variabili
Dim strDataBasePath3 'Variabile
Dim cString3 'Variabile
Dim adoCon3 'Variabile
Dim strSQL3 'Variabile
Dim deleteSQL3
'Setto la variabile per una connessione ADO
Set adoCon3 = Server.CreateObject("ADODB.Connection")
'------------------------------------------------------------------------------------
'Cambiare il path del database
strDataBasePath3 = "mdb-database/utenti.mdb"
'------------------------------------------------------------------------------------
'Stringa per la connessione
'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
cString3 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)
'nuova SQL string
adoCon3.Open cString3
deleteSQL3 = "DELETE * FROM listFiles WHERE DestFileName = '" & str_PercorsoImage & "'"
'Creare un nuovo recordsheet
Set rs_delete = Server.CreateObject ("ADODB.RecordSet")
'Aprire il record sheet e eseguire SQL
rs_delete.open deleteSQL3,adoCon3
'Chiudo adoCon e rs_delete
adoCon3.Close
set rs_delete = Nothing
'cancello la vecchia foto del profilo
Dim ObjFSO
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists( str_PercorsoImage ) = True Then
ObjFSO.DeleteFile( str_PercorsoImage )
End If
Set ObjFSO = Nothing
Response.Redirect("fotoprofilo.asp")
End If
%>

Rispondi quotando
VVoVe: 
