<%@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 movimento
Aggiungi un movimento
<%
If Request.Form("aggiungi") <> "" Then
Dim N_Buono, Movimento, X_Data_movimento
N_Buono = Request.Form("M_N_Buono")
Movimento = Request.Form("M_Movimento")
X_Data_movimento = Request.Form("M_Data_movimento")
If N_Buono = "" Or Movimento = "" Or X_Data_Movimento = "" Then
%>
Tutti i campi sono obbligatori
<%
Else
rs.Open "Movimenti", cn, 3, 3
rs.AddNew
rs("N_Buono") = N_Buono
'rs("Cognome_nome") = Cognome_Nome
rs("Movimento") = Movimento
rs("Data_movimento") = X_Data_movimento
rs.Update
rs.Close
%>
Inserimento effettuato con successo!
<%
End If
End If
%>
<%
Set rs = Nothing
cn.Close
Set cn = Nothing
%>