|
' inserimento dati
Dim sc, cn, rs sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" Set cn = Server.CreateObject("ADODB.Connection") cn.Open sc & Server.MapPath("../mdb-database/Concadoro.mdb") Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = Cn rs.CursorLocation = adUseClient rs.CursorType = adOpenKeyset rs.LockType = adLockOptimistic rs.Source = "Select * from Permessi" rs.open rs.addnew rs("Nominativo") = cognome rs("indirizzo") = indirizzo rs("palazzina") = palazzina rs("scala") = Scala rs("interno") = Interno rs("cellulare") = Telefono rs("Email") = Email rs("psw") = Password rs("DataRichiesta") = Now() rs.update |