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>")
%>