<% dim conn dim rs set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & Request.ServerVariables("APPL_PHYSICAL_PATH") & "counter.mdb" set rs=Server.CreateObject("ADODB.Recordset") rs.activeconnection = conn conn.execute("UPDATE [COUNTER] SET [COUNT]=[COUNT]+1") sql_string = "SELECT COUNT FROM [COUNTER]" rs.open sql_string if not (rs.bof and rs.eof) then rs.movefirst %> © Sathyasai.org, all rights reserved.        Accesses since 24 April 1999: <%= rs("COUNT") %> <% rs.Close() conn.Close() %>