<% Option explicit dim oConn, oCom, ors1, objRecordset, strSQL, objRs, iCount, usercount strSQL = "Select usercount from counter" Set objRs = Server.CreateObject("ADODB.recordset") objRs.Open "Select usercount from counter;", "DSN=thrower60" iCount = objRs(0) usercount = iCount + 1 objRs.Close set oConn = Server.CreateObject("ADODB.connection") oConn.Open "DSN=thrower60" strSQL = "update counter set usercount = 0" Set objRs = oConn.Execute (strSQL) Set objRs = nothing set oConn = nothing %>