<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/users/radio/icelvideo.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT * FROM tvf WHERE ID = 1", conn do while NOT rs.EOF f= rs.Fields("visits") +1 rs.MoveNext loop rs.close conn.close set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/users/radio/icelvideo.mdb")) sql="UPDATE tvf SET visits='" & f & "'" conn.Execute sql conn.close %>
