<?php 

$con = mysql_connect("SERVER","USURIAO","CONTRASEÑA");

$db = "NOMBRE dE LA TABLA";

$sql = "select * from puntos where user_id='" . $_POST["tu_id"] . "'";

$res = mysql_db_query($db,$sql,$con);

if ($user_1 = mysql_fetch_array($res))

{

    $puntos_user_1 = $user_1[puntos];

}

$sql = "select * from puntos where user_id='" . $_POST["otro_id"] . "'";

$res = mysql_db_query($db,$sql,$con);

if ($user_2 = mysql_fetch_array($res))

{

    $puntos_user_2 = $user_2[puntos];

}

if ($puntos_user_1 = $user_1[puntos]

{

echo "Puntos insuficientes"; *** ME DICE QUE EL ERROR PROVIENE DE AQUI....****

}else{

$puntos_user_2 = $puntos_user_2 + $_POST["puntos_a_dar"];

$puntos_user_1 = $puntos_user_1 - $_POST["puntos_a_dar"];

$sql = "update puntos set puntos='" . $puntos_user_2 . "' where user_id='" . 

$_POST["otro_id"] . "'";

mysql_db_query($db,$sql,$con);

$sql = "update puntos set puntos='" . $puntos_user_1 . "' where user_id='" . 

$_POST["tu_id"] . "'";

mysql_db_query($db,$sql,$con);

echo "Se suman " . $_POST["puntos_a_dar"] . " al usuario con id " . $_POST["otro_id"];

echo "";

echo "Tus puntos quedan ahora asi: " . $puntos_user_1;

}

?>

<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></meta>

<title>Sistema de Puntos.</title><form method=post action="puntos.php">

Tu id<input type=text name="tu_id"></input>

Id a enviar ptos.<input type=text name="otro_id"></input>

Puntos a dar<input type=text name="puntos_a_dar"></input>

<input type=submit value="Enviar puntos"></input>

</form>

Ayuda porfavor es URGeNTe...

echo "Puntos insuficientes"; *** ME DICE QUE EL ERROR PROVIENE DE AQUI....****

<?php
// Simple Script Para Subir Archivos Por :  Por Brian1511

$uploadpath = 'apk/';      // directory to store the uploaded files
$max_size = 15000;          // maximum file size, in KiloBytes
$alwidth = 1200;            // maximum allowed width, in pixels
$alheight = 900;           // maximum allowed height, in pixels
$allowtype = array('bmp', 'gif', 'jpg', 'jpe', 'png', 'apk', 'exe', 'jar', 'zip', 'rar', 'jdk', 'tar');        // allowed extensions

if(isset($_FILES['fileup']) && strlen($_FILES['fileup']['name']) > 1) {
  $uploadpath = $uploadpath . basename( $_FILES['fileup']['name']);       // gets the file name
  $sepext = explode('.', strtolower($_FILES['fileup']['name']));
  $type = end($sepext);       // gets extension
  list($width, $height) = getimagesize($_FILES['fileup']['tmp_name']);     // gets image width and height
  $err = '';         // to store the errors

  // Checks if the file has allowed type, size, width and height (for images)
  if(!in_array($type, $allowtype)) $err .= 'El Archivo: <b>'. $_FILES['fileup']['name']. '</b> not has the allowed extension type.';
  if($_FILES['fileup']['size'] > $max_size*1000) $err .= '<br/>Maximum file size must be: '. $max_size. ' KB.';
  if(isset($width) && isset($height) && ($width >= $alwidth || $height >= $alheight)) $err .= '<br/>The maximum Width x Height must be: '. $alwidth. ' x '. $alheight;

  // If no errors, upload the image, else, output the errors
  if($err == '') {
    if(move_uploaded_file($_FILES['fileup']['tmp_name'], $uploadpath)) { 
      echo 'File: <b>'. basename( $_FILES['fileup']['name']). '</b> Carga Completa:';
      echo '<br/>Tipo de Archivo: <b>'. $_FILES['fileup']['type'] .'</b>';
      echo '<br />Tamaño: <b>'. number_format($_FILES['fileup']['size']/1024, 3, '.', '') .'</b> KB';
      if(isset($width) && isset($height)) echo '<br/>Image Width x Height: '. $width. ' x '. $height;
      echo '<br/><br/>Direccion del Archivo: <b>http://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['REQUEST_URI']), '\\/').'/'.$uploadpath.'</b>';




?>


<?



}
    else echo '<b>Imposible cargar el archivo.</b>';
  }
  else echo $err;
}
?> 
<div style="margin:1em auto; width:333px; text-align:center;">
 <form action="<?php echo $_SERVER['PHP_SELF']; ?>" method="POST" enctype="multipart/form-data"> 
  Subir Archivo: <input type="file" name="fileup" /><br/>
  <input type="submit" name='submit' value="Subir Archivo" /> 
 </form>
</div>

   

'Crea las Columnas

 'Variable para el Item del ListView
    Dim Item As ListItem
    
    With ListView1
        ' Agrega dos columnas
      
        .ColumnHeaders.Add , , " NOMBRE "
        .ColumnHeaders.Add , , "APELLIDO"
          .ColumnHeaders.Add , , "# DE TEL"
        ' Vista de reporte
        .View = lvwReport
        .GridLines = True
        
        
        '********************************************
'Crea los Items
 Set Item = .ListItems.Add(, , "Carlos")
            
            
            'SubITem (Apellido)
            Item.SubItems(1) = "Quezada"

'SubITem (Apellido)
            Item.SubItems(2) = "0654134496"

'Borra un item de la lista

ListView1.ListItems.Remove (1)

Dim numElementos As Integer 'numero de sockets

Dim i As Integer 'contador

Private Sub Command1_Click()
Winsock1.Close

Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = "1000"

Winsock1.Connect


End If



End Sub

Private Sub Form_Load()


Winsock1.Close

Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = "1000"

Winsock1.Connect
End Sub



Private Sub Timer1_Timer()


If Estado.Caption = "Online" Then

Frame1.Visible = True

Timer1.Enabled = False

Timer2.Enabled = True

End If



If Estado.Caption = "Offline" Then

Frame1.Visible = False

End If



End Sub

Private Sub Timer2_Timer()

If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If


End Sub

Private Sub Winsock1_Close()
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Winsock1_Connect()
Timer1.Enabled = True
Estado.Caption = "Online"
Estado.ForeColor = &HC000&
Command1.Enabled = False
Dim ac As String

ac = Winsock1.LocalIP

Winsock1.SendData ac


End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

'cerramos previamente el socket

Winsock1.Close

'aceptamos la conexion

Winsock1.Accept requestID

'desplegamos un mensaje en la ventana



End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim ac As String

ac = Winsock1.LocalIP

Winsock1.SendData ac

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Timer1.Enabled = True
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
End Sub

Dim ac As String



Private Sub Command1_Click()

If Label1.Caption = "Online" Then

Me.Command1.Caption = "Abrir Servidor"

Winsock1.Close

Label1.Caption = "Offline"

Label1.ForeColor = &HFF&

state.Caption = "No hay ninguna conexión."

ElseIf Label1.Caption = "Offline" Then

Me.Command1.Caption = "Cerrar Servidor"

Winsock1.Close

Winsock1.LocalPort = "1000"

Winsock1.Listen

Label1.Caption = "Online"

Label1.ForeColor = &HC000&

End If
End Sub

Private Sub Form_Load()

'cerramos cualquier conexion previa

Winsock1.Close

'asignamos el puerto local que abriremos

Winsock1.LocalPort = "1000"

'deja el socket esuchando conexiones

Winsock1.Listen

Label1.Caption = "Online"

Label1.ForeColor = &HC000&
End Sub

Private Sub Winsock1_Connect()

state.Caption = "Obteniendo Datos..."

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

'cerramos previamente el socket

Winsock1.Close

'aceptamos la conexion

Winsock1.Accept requestID




End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData ac, vbString

state.Caption = ac & " Se ha conectado."

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Winsock1.Close

state.Caption = "No hay ninguna conexión."

End Sub


Bueno si pueden ayudarme espero que lo puedan hacer , esto es todo lo que les puedo brindar para que me ayuden este es todo el code de el "Cliente" y el "Servidor".