<% function actualiza(team1,team2,result1,result2) team1 = "equipo" & cstr(team1) team2 = "equipo" & cstr(team2) result1 = cint(result1) result2 = cint(result2) if cint(result1) > cint(result2) then 'se calculan los datos del ganador y se actualiza la tabla SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team1) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 jg = cint(rsTab.fields("jg")) + 1 gf = cint(rsTab.fields("gf")) + result1 gc = cint(rsTab.fields("gc")) + result2 df = gf - gc p = cint(rsTab.fields("p")) + 3 rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " jg = " & jg & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df & "," SQL = SQL & " p = " & p SQL = SQL & " where nombre = '" & rsJue.fields(team1) & "'" set rsTab = DB.Execute(SQL) 'se calculan los datos del perdedor y se actualiza la tabla SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team2) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 jp = cint(rsTab.fields("jp")) + 1 gf = cint(rsTab.fields("gf")) + result2 gc = cint(rsTab.fields("gc")) + result1 df = gf - gc rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " jp = " & jp & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df SQL = SQL & " where nombre = '" & rsJue.fields(team2) & "'" set rsTab = DB.Execute(SQL) elseif cint(result1) < cint(result2) then 'se calculan los datos del ganador y se actualiza la tabla SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team2) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 jg = cint(rsTab.fields("jg")) + 1 gf = cint(rsTab.fields("gf")) + result2 gc = cint(rsTab.fields("gc")) + result1 df = gf - gc p = cint(rsTab.fields("p")) + 3 rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " jg = " & jg & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df & "," SQL = SQL & " p = " & p SQL = SQL & " where nombre = '" & rsJue.fields(team2) & "'" set rsTab = DB.Execute(SQL) 'se calculan los datos del perdedor y se actualiza la tabla SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team1) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 jp = cint(rsTab.fields("jp")) + 1 gf = cint(rsTab.fields("gf")) + result1 gc = cint(rsTab.fields("gc")) + result2 df = gf - gc rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " jp = " & jp & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df SQL = SQL & " where nombre = '" & rsJue.fields(team1) & "'" set rsTab = DB.Execute(SQL) elseif cint(result1) = cint(result2) then 'se calculan los datos del empate SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team1) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 je = cint(rsTab.fields("je")) + 1 gf = cint(rsTab.fields("gf")) + result1 gc = cint(rsTab.fields("gc")) + result2 df = gf - gc p = cint(rsTab.fields("p")) + 1 rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " je = " & je & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df & "," SQL = SQL & " p = " & p SQL = SQL & " where nombre = '" & rsJue.fields(team1) & "'" set rsTab = DB.Execute(SQL) SQLtabla = "Select * from torAp04_tablaGral where nombre = '" & rsJue.fields(team2) & "'" rsTab.open SQLtabla,DB,3,3 jj = cint(rsTab.fields("jj")) + 1 je = cint(rsTab.fields("je")) + 1 gf = cint(rsTab.fields("gf")) + result2 gc = cint(rsTab.fields("gc")) + result1 df = gf - gc p = cint(rsTab.fields("p")) + 1 rsTab.close SQL ="Update torAp04_tablaGral Set jj = " & jj & "," SQL = SQL & " je = " & je & "," SQL = SQL & " gf = " & gf & "," SQL = SQL & " gc = " & gc & "," SQL = SQL & " df = " & df & "," SQL = SQL & " p = " & p SQL = SQL & " where nombre = '" & rsJue.fields(team2) & "'" set rsTab = DB.Execute(SQL) end if end function %>