<% Set DBConn = Server.CreateObject("ADODB.Connection") Set CounterRS = Server.CreateObject("ADODB.Recordset") DBConn.Open "SuperBowlFeeders" CounterRS.Open "SELECT * FROM Counter", DBConn, 1, 3 Dim Counter Counter = Abs(CounterRS("Counter")) + 1 CounterRS("Counter") = Counter CounterRS.Update %>
<% DBConn.Close %>