<% Dim Con SET Con = Server.CreateObject("ADODB.Connection") Con.Provider = "Microsoft.Jet.OLEDB.4.0" Con.Open Server.MapPath("hits.mdb") Con.Execute("UPDATE Hits SET hits = hits + 1") SET Con = Nothing %> Sringeri - Intro page

Skip Intro