Aggiornamento campo immagine da record

massimo.c

Aggiornamento campo immagine da record

Salve ho questo problema, voglio aggiornare un campo immagine (cioè cancellarla se serve tramite una checkbox) da un record di un dbase
come fare...
posto la pagina di cancellazione del record e in grassetto il campo immagine che vorrei cancellare..

<<A href="mailto:%@LANGUAGE="VBSCRIPT">%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim rs
dim cn
dim msg

set cn = server.CreateObject("Adodb.Connection")
set rs = server.CreateObject("Adodb.Recordset")
cn.Open conn

if request.Form("Submit")="Delete" then
Call Del()
End if

Sub Del()
dim num
dim i
dim Total_Del

num = Request.Form("num")

for i = 1 to num
id = Request.Form("d" & i)
if id<>"" then
rs.Open "Delete From Products Where ProductID=" & id, cn
Total_Del = Total_Del + 1
end if
next

msg = Total_Del & " Annunci Cancellati"
End Sub

rs.open "Select * From Products", cn
%>
<html>
<head>
<title>No title</title>
<meta name="generator" content="Namo WebEditor v6.0">
</head>
<body bgcolor="white" topmargin="0" marginheight="0">
<table border="0" align="center" width="780">
<tr>
<td width="780" height="382" valign="top"><p align="center"> </p>
<p align="center">
<%
response.Write(msg)
if not rs.EOF then
%>
</p>
<form name="form1" method="post" action="">
<table width="100%" border=1 align="center" cellpadding=0 cellspacing=0>
<tr bgcolor="#CCCCCC">
<td> </td>
<td><strong>Prodotto</strong></td>
<td><strong>Prezzo</strong></td>
<td><strong>Immagine Articolo</strong></td>
<td><strong>Offerta o Novità</strong></td>
<td><strong>Home Page: True=Attivo - False= Non Attivo</strong></td>
</tr>
<%while not rs.EOF
n = n + 1
%>
<tr>
<td width="4%" id="list"><input id=d<%=n%> type=checkbox name=d<%=n%> value="<%=rs.Fields("ProductID")%>">
</td>
<td id="list"> <a href='frmproduct.asp?id=<%=rs.Fields("ProductID")%>'><%=rs.Fields("ProductName")%></a></td>
<td id="list"> <%=rs.Fields("Price")%></td>
<td id="list"> <a href='/public/catalogo/<%=rs.Fields("image")%>'><%=rs.Fields("image")%></a></td>
<td id="list"> <%=rs.Fields("image2")%></td>
<td id="list"> <a href='frmproduct.asp?id=<%=rs.Fields("ProductID")%>'><%=rs.Fields("homepage")%></a></td>
</tr>
<%
rs.MoveNext
wend
%>
<tr>
<td colspan="6"> <input type="hidden" name="num" value="<%=n%>"> <input id=submit type=submit value=Delete name=submit>
</td>
</tr>
</table>
</form>
<p align="center">
<%
else
Response.Write " Non ci sono annunci"
end if
rs.Close
cn.Close
%>
</p>
</td>
</tr>
</table>
</body>
</html>