<% Dim DB, SQL, rs Set DB = Server.CreateObject("ADODB.Connection") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=C:/websites/sportstime.com.mx/httpdocs/db/_spmdb.mdb") DB.execute("UPDATE inicio SET principal = true WHERE id = 2671") %>