% Dim Conta set BDD = Server.CreateObject("ADODB.Connection") Set TABLA = Server.CreateObject("ADODB.Recordset") BDD.connectionstring=("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & Server.MapPath("bd.mdb") & "'") BDD.open set TABLA=BDD.execute("select con from con") tabla.movefirst conta=tabla("con") set tabla=BDD.execute("update con set con = con+1") BDD.Close %>
|
|||||||||||||||||||
|
|
|||||||||||||||||||