<% Dim Cn, rs Set Cn=server.CreateObject("Adodb.Connection") Cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("table.mdb") set rs= server.CreateObject("Adodb.Recordset") rs.open "Select count from cnt",cn,3,2 if rs.eof <> true or rs.bof <> true then rs.fields("count")=rs.fields("count") +1 rs.update else rs.addnew rs.fields("count")=1 rs.update end if %>   Visitor No. [ <%=rs.fields(0)%> ]     Online Users [ <% 'Write the amount of active visitors Response.Write(Application("strVisitors")) %> ]