<%
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
%>
Paintball Granada