<% ' Open the Database Connection SET Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "lafincaDSN" sqlString = "UPDATE tbl_counter "&_ "SET counter = counter + 1 " &_ "WHERE counter_id = 1" Con.Execute sqlString SET CON = NOTHING %>