Ciao ...
Ho un problema con la cancellazione di un allegato uplodato in una cartella.
mi spiego meglio:
ho un form con la possibilità di inserire nome , cognome...eccc e la possibilità di uplodare un file che verrà successivamente salvato in una cartella.
pero a mia discrezione vorrei aver la possibilità di cancellare questo file dalla cartella tramite un form.
Questa operazione mi riesce, ma quando provo a cancellare , dalla cartella me lo rimuove correttamente, ma sul database mi cancella tutta la riga con tutti i campi al posto del solo campo allegato...
mi dareste una mano a capire ? Grazie
la pagina è :
codice:<head> <title>ELENCO ALLEGATI PER IL CONTRATTO SELEZIONATO</title> <link href="stile.css" rel="stylesheet" type="text/css"> <script type="text/javascript" src="js/jquery.js"></script> <script type="text/javascript" src="js/interface.js"></script> <link href="stylemenu.css" rel="stylesheet" type="text/css" /> </head> <% dim conn, rs, sql, sqldelete dim strconn dim nomifile, canc dim i, s, File_Object, Cartella_Object, File_System_Object ' --- costruzione stringa di connessione al db --- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_ "DBQ="& Server.MapPath("Posta.mdb") canc = request.Form("canc") Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") i = 0 s = Split(canc, ", ") response.Write("<CENTER>") response.Write("<span class='titoletto'>") response.Write("I file cancellati sono: ") response.Write(" ") response.Write("</SPAN>") response.Write("<table align='center' border='1'>") For i = 0 To UBound(s) objFSO.DeleteFile ("C:\inetpub\wwwRoot\Recupero\Posta\allegati\" & s(i)) sql = "DELETE Allegato FROM T_Posta WHERE Allegato ='" & s(i) & "'" ' esecuzione della sql sul db Set Rs = Conn.Execute(sql) response.Write("<TR>" & "<TD align='center'>") Response.write(s(i)) response.Write("</TD>" & "</TR>") Next response.Write("</TABLE>") response.Write(" ") response.Write("<table align='center'>" & "<tr>" & "<td align='center'>") %> Indietro <% response.Write("</td>" & "</tr>" & "</table>") response.Write("</form>") %>
Rispondi quotando
