<% Dim numero Dim DB, TBL, SQL Dim correcto 'Recogemos el formulario id=Request.QueryString("id") deporte=Request.QueryString("deporte") correcto=True 'Comprobamos que no hay campos vacíos if correcto then 'Solo si todo está bien, comprobamos con la bd Set DB = Server.CreateObject("ADODB.Connection") Set TBL = Server.CreateObject("ADODB.RecordSet") DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("../../db/_spmdb.mdb")) SQL ="Update " & deporte & " Set status='c' Where id=" & id set TBL = DB.Execute(SQL) 'TBL.Update 'TBL.Close 'DB.Close end if response.Redirect("db.asp?deporte=" & deporte) %>