%@ Language=VBScript %> <% SET DB = Server.CreateObject("ADODB.Connection") DBName=Server.MapPath("/hamaldonado/Db/Splitter.mdb") DB.ConnectionString = "driver={Microsoft Access Driver (*.mdb)};DBQ=" & DBName DB.Open set rsCounter = DB.Execute("Select Contador from Counter") Contador = rsCounter("Contador") DB.Execute("Update Counter set Contador=Contador+1") DB.Close %>
|