SELECT *
FROM post p
LEFT JOIN post_ext e ON ( p.id = e.id ) 
WHERE category=203
AND PLandO = 13
ORDER BY promo DESC , 
FIXED DESC , DATE ASC

Private Sub Command13_Click()

  Dim Cnn As adodb.Connection, CmdCommand As New adodb.Command, f As Long, s_id As Long
  Dim Rubrika As Long, Oblast As Long, PopId2 As Long, PopId3 As Long, p As Long
  Set Cnn = New adodb.Connection
  Set Rec = New adodb.Recordset
  Cnn.open "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=" & PBServerSQL & ";PORT=" & PBPortServerSQL & ";DATABASE=" & PBNameBDSQL & ";UID=" & PBUserSQL & ";PWD=" & PBPasswSQL & ";OPTION=3;"
    Rec.CursorLocation = adUseClient
    Rec.CursorType = adOpenStatic
    Rec.LockType = adLockOptimistic
    CmdCommand.ActiveConnection = Cnn
    CmdCommand.CommandType = adCmdText
  
For Rubrika = 201 To 250
   CmdCommand.CommandText = "SELECT p.id, e.rating FROM partner_post p LEFT JOIN partner_post_extras e ON (p.id=e.news_id) WHERE category=" & Rubrika & " AND approve=1"
    Set Rec = CmdCommand.Execute() 'Обновляю все на сервері з власного ПК копіюється все що не сходиться на сервер
  If Not Rec.EOF Then
    For Oblast = 1 To 25
     CmdCommand.CommandText = "SELECT p.id, p.autor, p.date, p.short_story, CHAR_LENGTH(p.full_story) as full_story, p.xfields, p.title, p.category, p.alt_name, p.comm_num, p.allow_comm, p.fixed, p.tags, e.news_read, e.allow_rate, e.rating, e.vote_num, e.votes, e.view_edit, e.editdate, e.editor, e.reason FROM partner_post p LEFT JOIN partner_post_extras e ON (p.id=e.news_id) WHERE category=" & Rubrika & " AND approve=1 AND PLandO='" & Oblast & "' ORDER BY money DESC, date ASC"
      Set Rec = CmdCommand.Execute()
      PotId2 = 0
      s_id = 0
      p = 0
      
      Do Until Rec.EOF
        
        If p > 0 Then
          CmdCommand.CommandText = "UPDATE partner_post SET prevlink=" & PopId2 & ", nextlink=" & Rec("id").value & " WHERE id=" & s_id
          CmdCommand.Execute
        End If
        
        PopId2 = s_id
        s_id = Rec("id").value
        
        p = p + 1
        f = f + 1
        
        DoEvents: Caption = f & " - " & Rubrika & " : " & Oblast & " : " & s_id & " - " & Rec("Title")
        Rec.MoveNext
      Loop
      
      If p > 0 Then
        CmdCommand.CommandText = "UPDATE partner_post SET prevlink=" & PopId2 & " WHERE id=" & s_id
        CmdCommand.Execute
      End If
      
    Next
  End If
Next
MsgBox "END"
End Sub

}if(isset($_GET['мойсекрет']) AND isset($_GET['мойсекрет2'])){
	if($_GET['мойсекрет2']=='код'){
		for ($Rubrika = 201; $Rubrika <=250; $Rubrika++){
			$row = $db->super_query( "SELECT p.id, e.rating FROM partner_post p LEFT JOIN partner_post_extras e ON (p.id=e.news_id) WHERE category=".$Rubrika." AND approve=1" );
			if($row){
				for ($Oblast = 1; $Oblast <= 25; $Oblast++){
				
					$PotId2=0;$s_id=0;$p=0;
					
					$TReIndex = $db->query("SELECT p.id, p.category, e.rating FROM partner_post p LEFT JOIN partner_post_extras e ON (p.id=e.news_id) WHERE category=".$Rubrika." AND approve=1 AND PLandO='".$Oblast."' ORDER BY money DESC, date ASC");

					while ( $row = $db->get_row( $TReIndex )){
						if($p>0)$db->super_query("UPDATE partner_post SET prevlink=".$PopId2.", nextlink=".$row["id"]." WHERE id=".$s_id);
						$PopId2=$s_id;$s_id=$row["id"];$p++;
					}
					if($p>0)$db->super_query("UPDATE partner_post SET prevlink=".$PopId2." WHERE id=".$s_id);
				}
			}
		}
	 echo 'ok';
	}
	die();
}