if(isset($Submit))
{
$link = mysql_connect(localhost, $usuario, $password) or die("Error de conexion servidor");	
$bd = mysql_select_db($base, $link) or die("Error de seleccione de BD");

$g= $_POST['ganador'];
$p= $_POST['perdedor'];

$ganadas = "SELECT ganados FROM equipos WHERE nombre = '$_POST[ganador]'";
$resultganadas = mysql_query($ganadas,$link);
$rg = mysql_fetch_array($resultganadas);

sql = "UPDATE equipos SET ganadas = ($rg['ganados'] + 16) WHERE nombre = $_POST[ganador]";
$result = mysql_query($sql,$link);
echo ("Resultado reportado");

Dim AdoConexion As ADODB.Connection

sql = "Insert Into TABLA (campo1,campo2,campo3)" _
    & "Values ('" & campo1.Text & "'," & campo2.Text & "'" & campo3.Text & "')"

lalaRecordset.Open sql, AdoConexion, adOpenDynamic, adLockOptimistic

sql = "Update TABLA SET campo1 = campo1.txt,campo2 = campo2.txt WHERE condicion"

lalaRecordset.Open sql, AdoConexion, adOpenDynamic, adLockOptimistic

sql = "DELETE * FROM TABLA WHERE condicion"

lalaRecordset.Open sql, AdoConexion, adOpenDynamic, adLockOptimistic