<%@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") %> Aggiungi un Buono Spesa

Aggiungi un Buono Spesa

Cognome e Nome

Importo del Buono

Durata del Buono


Martinucci Pierluigi
Martinucci Carlo

Scadenza Buono

Data emissione Buono


<% If Request.Form("aggiungi") <> "" Then Dim Cognome_Nome, Importo, Durata, Titolare, scade, Emesso, chiuso Cognome_Nome = Request.Form("M_Cognome_Nome") Importo = Request.Form("M_Importo") Durata = Request.Form("M_Durata") Titolare = Request.Form("M_Martinucci") Scade = Request.Form("M_Scade") Emesso = Request.Form("M_Emesso") Chiuso = False '########################################### ' Verifica che Cognome e nome non sia vuota '########################################### If Cognome_nome = "" Then %>

Inserisci il Cognome e Nome del beneficiario del Buono Spesa

<% Else rs.Open "Buoni_spesa", cn, 3, 3 rs.AddNew rs("Cognome_nome") = UCase(Cognome_nome) rs("Importo") = Importo rs("Durata") = UCase(Durata) rs("Titolare") = UCase(Titolare) rs("Scade") = Scade rs("Emesso") = Emesso rs("Chiuso") = Chiuso rs.Update rs.Close %>

Inserimento effettuato con successo!

 

<% End If End If %>

Torna al Menu BUONI SPESA

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