<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/public/Contatore.mdb") sql = "SELECT * FROM Dati" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql,conn,3,3 rs.MoveFirst VecchioNumero = rs.Fields("Accessi") rs.close NuovoNumero = VecchioNumero + 1 sql1 = "UPDATE Dati SET Accessi = " & NuovoNumero & "" conn.Execute sql1 %> Caffè Rossini - Home Page

 

Il nuovo sito del Caffè Rossini lo troverete qui!!!

www.ristoranterossini.it
Sito ottimizzato per una risoluzione 800 x 600