<% Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("counter.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SET Rs = Server.CreateObject("ADODB.Recordset") Rs.Open "Select * From counters" , conn,1,3 Rs("TOTAL")=Rs("TOTAL") + 1 Rs.Update MyCounter( Rs("TOTAL") ) Response.write " " CONN.CLOSE Function MyCounter( counter ) Dim S, i, G S = CStr( counter ) For i = 1 to Len(S) G = G & "" Next Response.write G End Function %>