<% 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
%>
[Informazioni]
[Autori]
[Articoli]
[Registrati]
Administrator:
susannap@libero.it
Last update:
|
|
[Informazioni] [Autori] [Articoli] [Registrati] |
| Administrator: susannap@libero.it | Last update: |