<%@LANGUAGE = VBScript%> <% Dim sc, cn, rs sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" Set cn = Server.CreateObject("ADODB.Connection") cn.Open sc & Server.MapPath ("/mdb-database/database/Buoni_Spesa_2015.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Dim id id = Request.QueryString("id") %> Modifica un Buono Spesa

Modifica un Movimento

Seleziona il proprietario del Buono:



<% If id <> "" Then rs.Open "SELECT * FROM Buoni_Spesa WHERE N_Buono_ID = " & id, cn, 1 'rs.Open "SELECT * FROM movimenti WHERE N_Buono = " & id, cn, 1 %> Cognome e Nome
">

Importo
">

Durata del Buono

">

<% rs.Close End If If Request.Form("modifica") <> "" Then Dim nome nome = Request.Form("nome") If nome = "" Then %>

Specifica il Cognome e Nome

<% Else Dim SQL SQL = "SELECT * FROM autori WHERE aut_id = " & id rs.Open SQL, cn, 3, 3 rs("aut_nome") = nome rs.Update rs.Close %>

Modifica effettuata con successo!

<% End If End If %>

<% Set rs = Nothing cn.Close Set cn = Nothing %>