<% filePath = Server.MapPath("./webmaster/masters.mdb") set cn=server.CreateObject("ADODB.connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath set rs=server.CreateObject("ADODB.recordset") set rs=cn.Execute ("select hits from login") if rs.eof then hits=0 cn.Execute("update login set hits ='"& hits+1 & "'") else hits =rs("hits") cn.Execute ("update login set hits='" & hits+1 & "'") end if %>