% set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = "dsn=toys;" Recordset2.Source = "SELECT * FROM contador" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.Open Recordset2_numRows = 0 conti = Recordset2.Fields.Item("conta").Value conti = conti + 1 codigo = "666" Set MM_updateCmd = Server.CreateObject("ADODB.Command") MM_updateCmd.ActiveConnection = "dsn=toys;" MM_updateCmd.CommandText = "UPDATE contador SET conta = '" & conti & "' WHERE codigo = '" & codigo & "'" MM_updateCmd.Execute %> <% session("contra") = 1 session("atras") = 5 %> <% dim base(100) Session("base") = base %>