% sql="SELECT visitas FROM trafego" set rstemp=Server.CreateObject("ADODB.Recordset") rsTemp.Open sql, teleDB, 1, 3 visitas=rsTemp("visitas") visitas=visitas+1 rsTemp("visitas")=visitas rstemp.update rstemp.close Set RSTemp=Nothing teleDB.close Set teleDB=Nothing %>
|