<%@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/Buoni_Spesa_2015.mdb") Set rs = Server.CreateObject("ADODB.Recordset") Dim id id = Request.QueryString("id") %> Modifica un Buono Spesa

Modifica un Buono Spesa

Seleziona il Buono da Modificare:



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

Importo
">

Durata del Buono

">

<% rs.Close End If If Request.Form("modifica") <> "" Then Dim Cognome_nome, importo, durata Cognome_nome = Request.Form("M_Cognome_nome") importo = Request.Form("M_Importo") durata = Request.Form("M_Durata") If Cognome_nome = "" Then %>

Specifica il Cognome e Nome

<% Else Dim SQL SQL = "SELECT * FROM Buoni_spesa WHERE N_Buono_ID = " & id rs.Open SQL, cn, 3, 3 rs("Cognome_nome") = Cognome_nome rs("Importo") = importo rs("durata") = durata rs.Update rs.Close %>

Modifica effettuata con successo!

<% End If End If %>

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