<% dim oRS dim sql dim inpTitolo inpTitolo=Request.Form("mialista1") Set oRS = Server.CreateObject("ADODB.recordset") 'verifico se il libro presente nel catalogo sql = "SELECT * FROM articoli WHERE titolo='" & inpTitolo & "';" oRS.Open sql, "DSN=progetto" If oRS.EOF Then Response.Write "

L'articolo non esiste nel Data Base" Response.Write "" Response.Write Chr(10) & Chr(13) Else Set oRS = Server.CreateObject("ADODB.recordset") sql = "DELETE * FROM articoli WHERE titolo='" & inpTitolo & "';" oRS.Open sql, "DSN=progetto" Response.Write "

La cancellazione ha avuto successo

" Response.Write "
Cancella un altro articolo
" Response.Write Chr(10) & Chr(13) End If %>

Site home [Informazioni] [Autori] [Articoli] [Registrati]

Administrator: susannap@libero.it Last update: