• User

    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...:sbav:
    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>